Power set: Difference between revisions

Content added Content deleted

Inline

@@ Line 468: / Line 468: @@
 <lang Clojure>(defn powerset
   [coll]
-  (reduce (fn [a x]
+  (reduce (fn [a x] (->> a (map #(set (concat #{x} %))) (concat a) set))
-            (set (concat a (map #(set (concat #{x} %)) a))))
           #{#{}} coll))