Flatten a list: Difference between revisions
Content deleted Content added
| Line 156: | Line 156: | ||
(concat (flatten (first s)) (flatten (next s))) |
(concat (flatten (first s)) (flatten (next s))) |
||
(cons (first s) (flatten (next s)))))))</lang> |
(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}}== |
=={{header|Common Lisp}}== |
||