fork download
  1. functionname x
  2. | x > 0 = x - 5
  3. | x - 5 == 0 = 1
  4. | x - 5 /= 0 = functionname (x - 5)
  5. | x - 5 < 0 = 0
  6.  
  7. main = putStrLn $ show $ functionname 33
Success #stdin #stdout 0s 6228KB
stdin
Standard input is empty
stdout
28