4 lines
145 B
Common Lisp
4 lines
145 B
Common Lisp
(defun flatten (structure)
|
|
(cond ((null structure) nil)
|
|
((atom structure) (list structure))
|
|
(t (mapcan #'flatten structure))))
|