Rosetta Code

Power set: Difference between revisions

Page Discussion

Power set (view source)

Revision as of 19:55, 9 February 2018

75 bytes removed ,  6 years ago
no edit summary
No edit summary
Line 700:
<lang Clojure>(defn powerset [coll]
(reduce (fn [a x]
(->>into a (map #(conj % x)) a))
(map #(set (concat #{x} %)))
(concat a)
set))
#{#{}} coll))
 
Line 1,176 ⟶ 1,173:
 
or, alternatively as:
 
<lang funl>import lists.foldr
 
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/74452"