如何在perl中编写组合？

Question

如果我给出3的值，它应该生成

的组合

1,2,3
1,3,2
2,3,1
2,1,3
3,1,2
3,2,1

同样，它应该为任何数字生成组合。

Answer 1

使用：Algorithm::Combinatorics。

#!/usr/bin/perl

use strict;
use warnings;
use Algorithm::Combinatorics qw(combinations);

my $nums = [qw(1 2 3)];
my $iter = combinations($nums, scalar(@{$nums}));

while (my $c = $iter->next) {
    print "@$c\n";
}