我已经看到了序列中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中测试).