Perl 6中嵌套列表的赋值

Question

我想，结果应该是1、2、3。

> my ($a, $b, $c)
> (($a, $b), $c) = ((1, 2), 3)
(((1 2) 3) (Any))
> $a, $b, $c
((1 2) 3 (Any))

这里怎么了？

Answer 1

你在问“这里出了什么问题”，我想说的是，单参数规则的一些变体正在发挥作用。因为括号在这里只用于分组，所以发生的是这个赋值

($a, $b), $c = (1, 2), 3

（1，2），3表现为单个参数，因此它们被含糊地分配给组中的第一个元素，$a，$b。因此，他们得到了全部，而波尔·奥尔德（por old）$c只得到了一部分。这样看：

my ($a, $b, $c); 
($a, ($b, $c)) = ((1, 2), 3, 'þ'); 
say $a, $c; # OUTPUT: «(1 2)þ␤»

您可能想看看Larry Wall的这段代码，它使用"="，它完全符合您的要求。它没有记录，所以您可能需要等待一段时间才能完成。

Answer 2

如果您想让结果为1,2,3，则必须Slip列表：

my ($a, $b, $c) = |(1, 2), 3;

这是单参数规则的结果：https://docs.raku.org/type/Signature#Single_Argument_Rule_Slurpy

这也是为什么它会起作用：

my ($a, $b, $c) = (1, 2, 3);

尽管（1,2,3）是一个包含3个元素的列表，但由于相同的单参数规则，它将自动滑动。当然，您也可以删除（迷信的）括号：

my ($a, $b, $c) = 1, 2, 3;

Answer 3

没有什么错（也就是说，P6中的普通作业是按它所做的那样设计的），但您猜测，如果将两侧的结构设置为相同的，则会导致a美元获得1美元，b美元获得2美元，c美元获得3美元。

为此，您需要“绑定赋值”（又名“绑定”），而不是普通赋值：

my ($a, $b, $c);
:(($a, $b), $c) := ((1, 2), 3);

请注意左侧列表前的冒号，使其成为签名文字，并注意左侧列表前的冒号，使其成为绑定操作。