在 Raku 中实际复制数组的元素

Question

如何将数组的每个元素复制 x 次？

例如for my @a=<blu red>;和x=5，结果应该是

(blu blu blu blu blu red red red red red)

我想到了这个

say flat map { ($_, $_, $_, $_, $_) }, @a;

当然对于 x 的任意值，这是不切实际的。

具体怎么做？谢谢。

Answer 1

尝试像这样使用 infix xx 运算符：

my @a=<blu red>;
my $x = 5;
my @b = @a.map({ $_ xx $x }).flat;
say @b;

输出:

[blu blu blu blu blu red red red red red]

编辑：

.. 或者简单地使用 flatmap（虽然文档说不鼓励使用 flatmap）

my @b = @a.flatmap({ $_ xx $x });