Combien de façons y a-t-il de décrire la séquence de Fibonacci dans Perl 6?

Question

J'ai regardé les différentes manières de construire des listes paresseuses dans Perl 6 et je voudrais rassembler toutes les manières concises de décrire la séquence de Fibonacci.

Je vais commencer cette large avec les trois de la revue de masak:

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

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

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

Je pensais quelque chose comme ça fonctionnerait aussi, mais je pense avoir la mauvaise syntaxe:

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

Quelque chose là-bas est impatient (la tranche?) Et fait entrer Rakudo dans une boucle infinie. Il est une traduction de la définition Haskell:

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

Mise à jour:

On dirait que le problème avec le zipWith exemple est la tranche @fibs[1..*]. si tail est défini comme sub tail (@x) {my $i = 1; {@x[$i++]}...*} alors cela fonctionne correctement. Je serais curieux de savoir pourquoi la tranche n'est pas paresseuse de quiconque est familier avec les internes de Rakudo.

Une autre belle est un:

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

Answer 1

Vous pouvez utiliser la magie du rapport d'or: laisser φ = (sqrt (5) + 1)/2, et définir fib (n) = (φ ⁿ + (1- φ) ⁿ)/sqrt (5).

Vous pouvez convertir une telle fonction dans une liste paresseuse de manière évidente: Dans Haskell les travaux suivants:

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

Je crains que ma connaissance Perl 6 n'est pas à traduire cela, désolé! Toute personne qui édite cette réponse à éditer dans les codes gagnera ma gratitude.

Une question de test plus serait de lister les façons de générer la liste paresseuse des nombres de Hamming.

Answer 2

Le semble être le plus court

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