8 lines
156 B
Text
8 lines
156 B
Text
fun {Powerset2 Set}
|
|
case Set of nil then [nil]
|
|
[] H|T thens
|
|
Acc = {Powerset2 T}
|
|
in
|
|
{Append Acc {Map Acc fun {$ A} H|A end}}
|
|
end
|
|
end
|