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