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

Question

我想修改一个数组(我splice在这个例子中使用,但它可以是修改数组的任何操作)并返回修改后的数组 - 不像slice,它返回从数组中拉出的项目.我可以通过在数组中存储块来轻松完成,如下所示:

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]?»