glance/examples/fact.hs
2016-12-16 00:47:48 -08:00

6 lines
105 B
Haskell

factorial :: (Num t, Eq t) => t -> t
factorial x =
if x == 0
then 1
else x * factorial (x - 1)