6 lines
156 B
Common Lisp
6 lines
156 B
Common Lisp
(defun flatten (mylist)
|
|
(cond
|
|
((null mylist) nil)
|
|
((atom mylist) (list mylist))
|
|
(t
|
|
(append (flatten (car mylist)) (flatten (cdr mylist))))))
|