Flatten a list: Difference between revisions

→‎{{header|Clojure}}: Use rest instead of next in recursive section
(→‎{{header|Clojure}}: Use rest instead of next in recursive section)
Line 591:
(when-let [s (seq coll)]
(if (coll? (first s))
(concat (flatten (first s)) (flatten (nextrest s)))
(cons (first s) (flatten (nextrest s)))))))</lang>
 
An alternative approach (from clojure.contrib.seq-utils).
Anonymous user