Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Power-set/Clojure/power-set-2.clj
+++ b/Task/Power-set/Clojure/power-set-2.clj
@ -1,7 +1,9 @@
-(defn powerset
-  [coll]
+(defn powerset [coll]
  (reduce (fn [a x]
-            (set (concat a (map #(set (concat #{x} %)) a))))
+            (->> a
+                 (map #(set (concat #{x} %)))
+                 (concat a)
+                 set))
          #{#{}} coll))

 (powerset #{1 2 3})