perl的Math::Combinatorics模块实现全排列

发布时间：2020-12-15 23:51:36 所属栏目：大数据来源：网络整理

导读：代码： #!/usr/bin/perl -wuse Math::Combinatorics qw(permute);@a = (1,2,3,4);foreach(permute(@a)){ print "@$_n";} permute()返回的是一个数组，该数组的元素为所有排列的数组的引用。输出为： 1 2 3 4 1 2 4 3 1 3 2 4 1 3 4 2 1 4 2 3 1 4 3 2 2 1

代码：

#!/usr/bin/perl -w
use Math::Combinatorics qw(permute);
@a = (1,2,3,4);

foreach(permute(@a)){
        print "@$_n";
}

permute()返回的是一个数组，该数组的元素为所有排列的数组的引用。

输出为：

1 2 3 4 1 2 4 3 1 3 2 4 1 3 4 2 1 4 2 3 1 4 3 2 2 1 3 4 2 1 4 3 2 3 1 4 2 3 4 1 2 4 1 3 2 4 3 1 3 1 2 4 3 1 4 2 3 2 1 4 3 2 4 1 3 4 1 2 3 4 2 1 4 1 2 3 4 1 3 2 4 2 1 3 4 2 3 1 4 3 1 2 4 3 2 1

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!