嵌套列表的Perl 6 assignment hyper运算符未按预期工作

Question

您好，我正在尝试在Perl 6中使用赋值超运算符https://docs.perl6.org/language/operators#Hyper_operators

my (@one, @two) «=» (<1 2 3>,<4 5 6>);
say @one;
say @two;
# Prints nothing (empty array)

# Expected behaviour:
@one=<1 2 3>;
@two=<4 5 6>;
say @one;
say @two;
# Prints [1 2 3] and [4 5 6]

如何使赋值超运算符正确运行？谢谢

Answer 1

你很接近。在我们找到的文档中再进一步一点

zip元运算符（与Z不同）将把给定的中缀运算符应用于从其参数中取一左一右的对。

所以

my (@one, @two) Z= <1 2 3>, <4 5 6>;

这是一个在当前开发人员构建上运行的基准测试。它将上面的“神奇”变体与两个顺序分配进行比较。

use v6;
use Benchmark;

my %results = timethese(100000, {
    "magic" => sub { my (@one, @two) Z= <1 2 3>, <4 5 6> },
    "plain" => sub { my @one = <1 2 3>; my @two = <4 5 6> },
});

say ~%results;

# magic   1569668462 1569668464 2 0.00002
# plain   1569668464 1569668464 0 0