Sitat av
Akhkharu
Off by one.
Kode
fibs = 1:1:zipWith (+) fibs (tail fibs)
main = print $ head $ dropWhile (<10^999) fibs
Det er det første tallet i Fibonacci-sekvensen som er >= 1000 tegn langt. Jeg glemte de to andre, indeksen til tallet i sekvensen (4782) og antall siffer du leter etter, altså 1000.
Jepp, jeg trodde det det var det som var problemet. Imponert over hvor komprimert Haskell-koden ble.