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