fork download
  1. fib :: Int -> Int
  2. fib 1 = 1
  3. fib x = x * fib (x - 1)
  4. main = putStr $ show $ fib 3
Success #stdin #stdout 0.01s 3580KB
stdin
Standard input is empty
stdout
6