6 lines
195 B
Clojure
6 lines
195 B
Clojure
(defn flatten [coll]
|
|
(lazy-seq
|
|
(when-let [s (seq coll)]
|
|
(if (coll? (first s))
|
|
(concat (flatten (first s)) (flatten (rest s)))
|
|
(cons (first s) (flatten (rest s)))))))
|