ghc/misc/examples/nfib/nfibF.hs

   1 module Main where
   2
   3 main = print (nfib 28)
   4
   5 nfib :: Float -> Float
   6
   7 nfib n | n <= 1 = 1
   8        | otherwise = (n1 + n2 + 1)
   9                      where n1 = nfib (n-1)
  10                            n2 = nfib (n-2)