к соотвественным элементам AL
(defun map-comp (fn al vl) ; fn покомпонентно применить
; к соотвественным элементам AL и VL
(cond
(xl (cons (fn (car al) (car vl))
; Вызов данного FN как функции
(map-comp (cdr al) (cdr vl))
) ) ) )
Введение в программирование на Лиспе
(defun map-comp (fn al vl) ; fn покомпонентно применить
; к соотвественным элементам AL и VL
(cond
(xl (cons (fn (car al) (car vl))
; Вызов данного FN как функции
(map-comp (cdr al) (cdr vl))
) ) ) )