4 lines
104 B
Perl
4 lines
104 B
Perl
|
use Algorithm::Combinatorics qw/combinations/;
|
||
|
|
my @c = combinations( [0..4], 3 );
|
||
|
|
print "@$_\n" for @c;
|