Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/nofib/imaginary/rfib/Main.hs
-- !!! the ultra-notorious "nfib 30" does w/ Floats -- module Main (main) where main = print (nfib 30) nfib :: Double -> Double nfib n = if n <= 1 then 1 else nfib (n-1) + nfib (n-2) + 1
