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

代码：

#!/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 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