Anonymous user
Flatten a list: Difference between revisions
→{{header|Clojure}}
Line 156:
(concat (flatten (first s)) (flatten (next s)))
(cons (first s) (flatten (next s)))))))</lang>
An alternative approach (from clojure.contrib.seq-utils).
<lang lisp>(defn flatten [x]
(filter (complement sequential?)
(rest (tree-seq sequential? seq x))))</lang>
=={{header|Common Lisp}}==
| |||