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