glance/examples/fact.hs

mirror of https://github.com/rgleichman/glance.git synced 2024-08-17 19:00:31 +03:00
factorial :: (Num t, Eq t) => t -> t
factorial x =
  if x == 0
    then 1
    else x * factorial (x - 1)
Add top level type signitures. 2016-12-16 11:47:48 +03:00			`factorial :: (Num t, Eq t) => t -> t`
Add fact.hs 2016-05-29 07:49:48 +03:00			`factorial x =`
			`if x == 0`
			`then 1`
			`else x * factorial (x - 1)`