June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Power-set/Clojure/power-set-2.clj
+++ b/Task/Power-set/Clojure/power-set-2.clj
@ -1,9 +1,6 @@
 (defn powerset [coll]
  (reduce (fn [a x]
-            (->> a
-                 (map #(set (concat #{x} %)))
-                 (concat a)
-                 set))
+            (into a (map #(conj % x)) a))
          #{#{}} coll))

 (powerset #{1 2 3})