4 lines
78 B
Perl
4 lines
78 B
Perl
|
sub powerset {
|
||
|
|
@_ ? map { $_, [$_[0], @$_] } powerset(@_[1..$#_]) : [];
|
||
|
|
}
|