Data commit

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

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

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

@@ -0,0 +1,6 @@
+(defn powerset [coll]
+  (reduce (fn [a x]
+            (into a (map #(conj % 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}}

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

@@ -0,0 +1,10 @@
+(defn powerset [coll]
+  (let [cnt (count coll)
+        bits (Math/pow 2 cnt)]
+    (for [i (range bits)]
+      (for [j (range i)
+            :while (< j cnt)
+            :when (bit-test i j)]
+         (nth coll j)))))
+
+(powerset [1 2 3])

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

@@ -0,0 +1 @@
+(() (1) (2) (1 2) (3) (1 3) (2 3) (1 2 3))