Введение в программирование на Лиспе

         

временно голова размещается


(defun heads (xl) (map-ap
#'(lambda (x)(cond (x (cons (car x) NIL))))
; временно голова размещается в список,
; чтобы потом списки сцепить
xl
) )
(heads '((1 2)()(3 4)()(5 6))) ;=(1 3 5)

Содержание раздела