fork download
  1. factorial n = factorial_helper 1 n
  2.  
  3. factorial_helper prod 0 = prod
  4. factorial_helper prod n = factorial_helper (prod*n) (n-1)
  5.  
  6.  
  7. main = print (factorial 5)
Success #stdin #stdout 0s 6224KB
stdin
Standard input is empty
stdout
120