[技术讨论] 【练习-020】根据输入列出组合

sxw

找到一个模块：

use Math::Combinatorics;
my @n = qw(a b c d e a b);
my @p = permute(@n);
print join "\n", map { join " ", @$_ } @p;
print "\n共有",scalar @p,"个组合";
复制代码