Anonymous user
Power set: Difference between revisions
→{{header|Clojure}}
(Code crunch) |
|||
Line 468:
<lang Clojure>(defn powerset
[coll]
(reduce (fn [a x] (->> a (map #(set (concat #{x} %))) (concat a) set))
#{#{}} coll))
|