RosettaCodeData/Task/Factorial/Elm/factorial-2.elm
2018-06-22 20:57:24 +00:00

7 lines
171 B
Elm

factorialAux : Int -> Int -> Int
factorialAux a acc =
if a < 2 then acc else factorialAux (a - 1) (a * acc)
factorial : Int -> Int
factorial a =
factorialAux a 1