Common Lisp: различия между версиями

Напишите функцию, которая из данного одноуровневого списка строит список списков его элементов, например, (a b) -> ((a) (b)).

 

(defun spisok_spiskov (x)

(if (not (null (rest x)))

(cons (list (first x))

(spisok_spiskov (rest x))) (list x)))

 

== Реализации ==