fork download
  1. y x
  2. | x < 0 = y (-x)
  3. | x > 0 = x + y (x - 1)
  4. | x == 0 = x
  5.  
  6. main = putStrLn . show . y $ 100000000
Runtime error #stdin #stdout #stderr 0.17s 10328KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Stack space overflow: current size 8388608 bytes.
Use `+RTS -Ksize -RTS' to increase it.