A-M baby

Task/Flatten-a-list/Clojure/flatten-a-list-1.clj

@@ -0,0 +1,6 @@
+(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)))))))

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

@@ -0,0 +1,3 @@
+(defn flatten [x]
+  (filter (complement sequential?)
+          (rest (tree-seq sequential? seq x))))