repositories / clean-tests.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
ushalow
[clean-tests.git] / foreign / fac.icl
1 implementation module fac
2
3 import StdEnv
4
5 fac :: !Int -> Int
6 fac 0 = 1
7 fac n = n * fac (n-1)