7 lines
129 B
Clojure
7 lines
129 B
Clojure
|
(defn powerset [coll]
|
||
|
|
(reduce (fn [a x]
|
||
|
|
(into a (map #(conj % x)) a))
|
||
|
|
#{#{}} coll))
|
||
|
|
|
||
|
|
(powerset #{1 2 3})
|