Power set: Difference between revisions
Content added Content deleted
(Added Qi) |
|||
Line 1,205: | Line 1,205: | ||
<lang oz>fun {Powerset2 Set} |
<lang oz>fun {Powerset2 Set} |
||
case Set of nil then [nil] |
case Set of nil then [nil] |
||
[] H|T |
[] H|T thens |
||
Acc = {Powerset2 T} |
Acc = {Powerset2 T} |
||
in |
in |
||
Line 1,359: | Line 1,359: | ||
if not l: return [[]] |
if not l: return [[]] |
||
return p(l[1:]) + [[l[0]] + x for x in p(l[1:])] |
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> |
</lang> |
||