fork download
  1. fib :: Int -> Integer
  2. fib 0 = 0
  3. fib 1 = 1
  4. fib n = fib (n-1) + fib (n-2)
  5.  
  6. main = do
  7. print (fib 40)
  8.  
Success #stdin #stdout 2.34s 5324KB
stdin
Standard input is empty
stdout
102334155