ANSI Common Lisp

Описание

изучающим Лисп (defun flatten (w) (loop for a in w if (listp a) nconc (flatten a) else collect a)) (defun flatten (w) (typecase w (list (mapcan #'flatten w)) (t `(,w)))) (defun flatten (w) (if (listp w) (mapcan #'flatten w) `(,w))) https://www.academia.edu/16235322/