5 lines
131 B
Perl
5 lines
131 B
Perl
use Algorithm::Combinatorics qw/combinations/;
|
|
my $iter = combinations([0..4],3);
|
|
while (my $c = $iter->next) {
|
|
print "@$c\n";
|
|
}
|