Power set: Difference between revisions
Content added Content deleted
(Added Qi) |
|||
Line 1,205:
<lang oz>fun {Powerset2 Set}
case Set of nil then [nil]
[] H|T
Acc = {Powerset2 T}
in
Line 1,359:
if not l: return [[]]
return p(l[1:]) + [[l[0]] + x for x in p(l[1:])]
</lang>
=={{header|Qi}}==
{{trans|Scheme}}
<lang qi>
(define powerset
[] -> [[]]
[A|As] -> (append (map (cons A) (powerset As))
(powerset As)))
</lang>
| |||