使用 Perl 6 Sequence Another (...) 运算符进行乘法

Question

我已经看到了序列中 Perl 6whatever (...) 运算符的示例，并且我尝试找出如何执行涉及乘法的序列。

该运算符执行以下操作，如果以一些数字开头，则可以指定其后面的数字序列。

@natural = 1,2 ... *;
@powersOfTwo = 1,2,4 ... *;

等等。 人们还可以使用序列中的前一个数字来定义一个序列，如斐波那契数列（如本问题所示），其中一个执行以下操作：

@fibonacci = 1,1, *+* ... *;

问题是乘法运算符是 * 并且前面的数字也用 * 表示。

虽然我可以使用 +、- 和 / 定义序列，但我似乎找不到使用 定义序列的方法*。

我已经尝试过以下方法：

@powers = 1,2, *** ... *;

但显然不起作用。

有谁知道如何做到这一点？

Answer 1

一方面，Perl 6 对空格很敏感。

1, 2, * * * ... *

是完全合法的，并且生成一个有点像乘法斐波那契的序列；只是有点难读。 *** 和 * * * 的含义不同。

如果歧义困扰您，您可以使用显式块，而不是使用“无论星号”给您提供的隐式块：

1, 2, -> $a, $b { $a * $b } ... *

并且

1, 2, { $^a * $^b } ... *

两者都会产生与 1, 2, * * * ... * 相同的序列> 确实（在 Rakudo 中测试）。

Answer 2

my @powers_of_two := { 1, 2, { $^a * 2 } ... *);

my $n = 6;
my @powers_of_six := { 1, $n, { $^a * $n } ... *);