有多少种方法可以描述Perl 6中的Fibonacci序列？

Question

我一直在研究在Perl 6中构造惰性列表的各种方法，我想收集所有描述Fibonacci序列的简洁方法。

我将从马萨克的期刊中的三个开始：

my @fibs := (0, 1, -> $a, $b { $a + $b } ... *);

my @fibs := (0, 1, { $^a + $^b } ... *);  

my @fibs := (0, 1, *+* ... *);

我认为这样的东西也会起作用，但我认为我的语法有误：

my @fibs := (0, 1, (@fibs Z+ @fibs[1..*]));

有什么东西急切（切片？）并导致Rakudo进入无限循环。 它是Haskell定义的翻译：

fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

更新：

看起来像zipWith示例的问题是@fibs[1..*]切片。 如果tail被定义为sub tail (@x) {my $i = 1; {@x[$i++]}...*} sub tail (@x) {my $i = 1; {@x[$i++]}...*}然后它正常工作。 我很想知道为什么切片对任何熟悉Rakudo内部的人来说都不是懒惰的。

另一个不错的是：

my @fibs := (0, [\+] 1, @fibs);

Answer 1

最短的似乎是

my @fibs := ^2,*+*...*;

Answer 2

可以使用黄金比例的神奇：让φ=（SQRT（5）+1）/ 2，并定义^{FIB（N）=（φN +（1-φ）N）/} SQRT（5）。

您可以用显而易见的方式将这样的函数转换为惰性列表：在Haskell中，以下工作：

fibs=genfibs 0 where genfibs n=(round (fib n)):genfibs (n+1)

我担心我的Perl 6知识无法翻译，对不起！ 编辑此答案以编辑代码的任何人都将获得我的感激之情。

一个更加测试的问题是列出生成汉明数字的惰性列表的方法。