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