Plaster
New
List
Login
text
default
anonymous
2019.05.16 14:38:40
(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