5 lines
139 B
Perl
5 lines
139 B
Perl
|
use ntheory "vecextract";
|
||
|
|
my @S = qw/a b c/;
|
||
|
|
my @PS = map { "[".join(" ",vecextract(\@S,$_))."]" } 0..2**scalar(@S)-1;
|
||
|
|
say join(" ",@PS);
|