RosettaCodeData/Task/Factorial/Elm/factorial-2.elm
2023-07-01 13:44:08 -04: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