假设我想要从a,b和c中的所有2个字母的排列.
我可以：
my @perm = <a b c>.combinations(2)».permutations; say @perm; # [((a b) (b a)) ((a c) (c a)) ((b c) (c b))]
这是接近,但不完全是我需要的.
我如何“扁平化”这样才能得到：
# [(a b) (b a) (a c) (c a) (b c) (c b)]
？
解决方法
参见
“a better way to accomplish what I (OP) wanted”.
添加下标
my \perm = <a b c>.combinations(2)».permutations; say perm; # (((a b) (b a)) ((a c) (c a)) ((b c) (c b))) say perm[*]; # (((a b) (b a)) ((a c) (c a)) ((b c) (c b))) say perm[*;*]; # ((a b) (b a) (a c) (c a) (b c) (c b)) say perm[*;*;*] # (a b b a a c c a b c c b)
笔记
我使用了一个非标准变量,因为我认为对于那些不了解Perl 6的人来说,这是一个更清楚的事情.
我没有附加到原来的表达式,但我可以有：
my \perm = <a b c>.combinations(2)».permutations[*;*]; say perm; # ((a b) (b a) (a c) (c a) (b c) (c b))