4 lines
89 B
Erlang
4 lines
89 B
Erlang
|
powerset([]) -> [[]];
|
||
|
|
powerset([H|T]) -> PT = powerset(T),
|
||
|
|
[ [H|X] || X <- PT ] ++ PT.
|