6 lines
103 B
Perl
6 lines
103 B
Perl
|
use List::Util qw(reduce);
|
||
|
|
|
||
|
|
sub powerset {
|
||
|
|
@{( reduce { [@$a, map([@$_, $b], @$a)] } [[]], @_ )}
|
||
|
|
}
|