Có bao nhiêu cách để mô tả chuỗi Fibonacci trong Perl 6?

Question

Tôi đã xem xét nhiều cách khác nhau để xây dựng danh sách lười biếng trong Perl 6 và tôi muốn thu thập tất cả các cách ngắn gọn để mô tả chuỗi Fibonacci.

tôi sẽ bắt đầu này ra với ba từ masak 's tạp chí:

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

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

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

Tôi đã suy nghĩ một cái gì đó như thế này cũng sẽ làm việc, nhưng tôi nghĩ rằng tôi có sai cú pháp:

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

Có thứ gì đó háo hức (lát cắt?) Và khiến Rakudo bước vào vòng lặp vô hạn. Đó là một bản dịch của định nghĩa Haskell:

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

Cập nhật:

Có vẻ như vấn đề với ví dụ zipWith là @fibs[1..*] lát. nếu tail được định nghĩa là sub tail (@x) {my $i = 1; {@x[$i++]}...*} thì nó hoạt động bình thường. Tôi sẽ được quan tâm để biết tại sao lát không phải là lười biếng từ bất cứ ai quen thuộc với ruột của Rakudo.

Một số khác tốt đẹp là:

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

Answer 1

Bạn có thể sử dụng sự kỳ diệu của tỷ lệ vàng: hãy φ = (sqrt (5) +1)/2, và xác định fib (n) = (φ ⁿ + (1- φ) ⁿ)/sqrt (5).

Bạn có thể chuyển đổi một chức năng như vậy vào một danh sách lười biếng trong cách rõ ràng: Trong Haskell các công việc sau:

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

Tôi sợ kiến ​​thức Perl 6 của tôi không phải là lên đến dịch này, xin lỗi! Bất cứ ai chỉnh sửa câu trả lời này để chỉnh sửa trong các mã sẽ kiếm được lòng biết ơn của tôi.

Một câu hỏi kiểm tra khác sẽ là liệt kê các cách tạo danh sách số Hamming lười biếng.

Answer 2

Các ngắn nhất có vẻ là

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