RosettaCodeData/Task/Flatten-a-list/Clojure/flatten-a-list-2.clj
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
101 B
Clojure

(defn flatten [x]
(filter (complement sequential?)
(rest (tree-seq sequential? seq x))))