6 lines
168 B
Erlang
6 lines
168 B
Erlang
powerset([]) -> [[]];
|
|
powerset([H|T]) -> PT = powerset(T),
|
|
powerset(H, PT, PT).
|
|
|
|
powerset(_, [], Acc) -> Acc;
|
|
powerset(X, [H|T], Acc) -> powerset(X, T, [[X|H]|Acc]).
|