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