我正在寻找一个更简单的解决方案.
我有一个带有相应后缀的前缀列表和一个根列表.
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这样的东西可以更轻松地做到这一点,但无法弄清楚如何……
解决方法
还有几种方法可以编写它：
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
}
}