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

         

выбираем CAR от его


(defun 1st (xl) ; "головы" элементов = CAR
(cond ; пока список не пуст
(xl (cons (caar xl) ; выбираем CAR от его головы
(1st (cdr xl)) ; и переходим к остальным,
) ) ) ) ; собирая результаты в список
(1st '((один два )(one two )(1 2 )) ) ; = (один one 1)

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