• [^] # Re: Fibo

    Posté par . En réponse à la dépêche Sortie du Glorious Haskell Compiler 7.8. Évalué à 3. Dernière modification le 16 avril 2014 à 02:07.

    Ou, plus sobrement :

    fibs = scanl (*) 1 [1..]
    nthFib = (fibs !!)
    

    On peut vérifier que ça mémoïse bien les résultats dans ghci :

    ghci> :sprint fibs
    fibs = _
    ghci> nthFib 3
    6
    ghci> :sprint fibs
    fibs = 1 : 1 : 2 : 6 : _
    ghci> nthFib 8
    40320
    ghci> :sprint fibs
    fibs = 1 : 1 : 2 : 6 : 24 : 120 : 720 : 5040 : 40320 : _