与Perl 6序列相乘无论(…)运算符

我已经看到了序列中Perl 6无论(…)运算符的例子,我试图找出如何进行涉及乘法的序列.

运算符执行以下操作,如果以某些数字开头,则可以指定其后的数字序列.

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

等等.
也可以使用序列中的先前数字定义序列,如斐波那契数字(在此question中所示),其中一个执行以下操作：

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

问题是乘法运算符是*,前面的数字也用*表示.

虽然我可以使用,和/来定义序列,但我似乎找不到使用*定义序列的方法.

我尝试过以下方法：

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

但它显然不起作用.

有谁知道怎么做？

解决方法

首先,Perl 6对空白很敏感.

1,* * * ... *

是完全合法的,并产生一个类似于乘法斐波那契的序列;它只是有点难以阅读. ***和* * *表示不同的东西.

如果歧义困扰你,你可以使用一个显式的块,而不是使用“任何星号”给你的隐式块：

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

和

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

两者都产生与1,* * * …… *相同的序列(在Rakudo中测试).

原文地址：https://www.jb51.cc/Perl/172001.html