Add fact.hs

This commit is contained in:
Robbie Gleichman 2016-05-28 21:49:48 -07:00
parent 327699a1b3
commit 24e3e23f28

4
examples/fact.hs Normal file
View File

@ -0,0 +1,4 @@
factorial x =
if x == 0
then 1
else x * factorial (x - 1)