fork download
factorial n = factorial_helper 1 n

factorial_helper prod 0 = prod
factorial_helper prod n = factorial_helper (prod*n) (n-1)


main = print (factorial 5)
Success #stdin #stdout 0s 6224KB
stdin
Standard input is empty
stdout
120