March 2014 update

Task/Power-set/Clojure/power-set-1.clj

@@ -1,4 +1,4 @@
-(use '[clojure.contrib.combinatorics :only [subsets] ])
+(use '[clojure.math.combinatorics :only [subsets] ])
 
 (def S #{1 2 3 4})
 

Task/Power-set/Clojure/power-set-2.clj

@@ -0,0 +1,7 @@
+(defn powerset
+  [coll]
+  (reduce (fn [a x]
+            (set (concat a (map #(set (concat #{x} %)) a))))
+          #{#{}} coll))
+
+(powerset #{1 2 3})

Task/Power-set/Clojure/power-set-3.clj

@@ -0,0 +1 @@
+#{#{} #{1} #{2} #{1 2} #{3} #{1 3} #{2 3} #{1 2 3}}