RosettaCodeData/Task/Flatten-a-list/Clojure/flatten-a-list-2.clj

4 lines
101 B
Clojure
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(defn flatten [x]
(filter (complement sequential?)
(rest (tree-seq sequential? seq x))))