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