Plaster
New
List
Login
common-lisp
default
anonymous
2019.05.16 14:43:53
(defun flat (L) (if (null L) () (if (not (atom (car L))) (append (flat (car L)) (flat (cdr L))) (append (list (car L)) (flat (cdr L))))))
Raw
Annotate
Repaste
Edit