串联Raku中的列表

Question

我在寻找一个更简单的解决方案。

我有一个带相应后缀的前缀列表和一个根列表。

my @prefixes = 'A'..'E';
my @suffixes = 'a'..'e';
my @roots = 1, 2;

我想说出所有可能的“单词”：《代码》A1a、《代码》B1b<代码>A2a<代码>E2e。

my @words;
for @roots -> $r {
    for @prefixes.kv -> $i, $p {
        my $s = @suffixes[$i];
        my $word = [~] $p, $r, $s;
        @words.push: $word;
    }
}
say @words; # [A1a B1b C1c D1d E1e A2a B2b C2c D2d E2e]

我想使用zip或cross之类的东西可以更容易地完成这项工作，但我不知道如何。。。

Answer 1

还有一些编写方法：

say @roots X[&join] (@prefixes Z @suffixes);

say @roots.map({ |(@prefixes Z @suffixes)».join($_) });

say @roots.map({ (@prefixes X~ $_) Z~ @suffixes }).flat;

say (|@prefixes xx *) Z~ (@roots X~ @suffixes);

my @formats = (@prefixes Z @suffixes).flat.map(* ~ '%s' ~ *);
say @formats X[&sprintf] @roots;

（注意：这个按不同的顺序打印。）

say do for @roots -> $root {
    |do for (@prefixes Z @suffixes) -> [$prefix, $suffix] {
        $prefix ~ $root ~ $suffix
    }
}

Answer 2

我的解决方案是：

say @roots.map: |(@prefixes >>~>> * <<~<< @postfixes);

为Metaoping串联创建一个WhateverCode，滑动结果以获得一个在末尾只有标量值的Seq。