Пусть дан список списков. Нужно

(defun list-ap (ll) (cond (ll (append (car ll) (list-ap (cdr ll) ) ) ) ) )
(list-ap '((1 2)(3 (4)))); = (1 2 3 (4))

Пример 7.11. Пусть дан список списков. Нужно их все сцепить в один общий список.

Закрыть окно