如何绕过 Perl 6 签名中的 slurpy 参数？

Question

我有一个简短的例子，我想取出一个数组的两个元素并将其替换为一个数组元素：

my @digits  = <1 2 3>.map: { [ $_, $_ ] };
say @digits;  # [[1 1] [2 2] [3 3]]

@digits.splice: 0, 2, [4,4];
say @digits; # [4 4 [3 3]]

这不起作用，因为 splice 替换实际上是 slurpy *@replacement，所以它将所有内容都变平了。

我可以尝试逐项列出它，以便将其视为一个单一的东西，但这仍然是扁平的：

@digits.splice: 0, 2, $[4,4];
say @digits; 

我可以将该项目放在另一个数组中，然后得到我想要的，但这似乎工作量太大（特别是因为我想决定它是否被展平）：

@digits.splice: 0, 2, [$[4,4]];
say @digits; # [[4 4] [3 3]]

有没有更好的方法来解决这个问题？

Answer 1

您可以使用([4,4],)（作为[$[4,4]] 的替代品

@digits.splice: 0, 2, ([4,4],); #or [[4,4],];

或更多替换

@digits.splice: 0, 2, [4,4], Empty; #or ,slip();