我如何链接到 Perl 6 中的内联块？

Question

我想修改一个数组（我在这个例子中使用的是 splice，但它可以是任何修改数组的操作）并且 return modified 数组 - 与 slice 不同，return 是从数组中拉出的项目。我可以通过在数组中存储一个块来轻松完成，如下所示：

my $l = -> $a { splice($a,1,3,[1,2,3]); $a };
say (^6).map( { $_ < 4 ?? 0 !! $_ } ).Array;
# [0 0 0 0 4 5]
say (^6).map( { $_ < 4 ?? 0 !! $_ } ).Array.$l;
# [0 1 2 3 4 5]

如何将 $l 表示的块内联到单个表达式中？明显的替换不起作用：

say (^6).map( { $_ < 4 ?? 0 !! $_ } ).Array.(-> $a { splice($a,1,3,[1,2,3]); $a })
Invocant requires a type object of type Array, but an object instance was passed.  Did you forget a 'multi'?

有什么建议吗？

Answer 1

在正确的位置添加一个 &。

say (^6).map( { $_ < 4 ?? 0 !! $_ } ).Array.&(-> $a { splice($a,1,3,[1,2,3]); $a })
# OUTPUT«[0 1 2 3 4 5]␤»

我如何链接到 Perl 6 中的内联块？

How do I chain to an inline block in Perl 6?

arrays

functional-programming

raku