diff options
Diffstat (limited to 'examples/fac.fusp')
-rw-r--r-- | examples/fac.fusp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/examples/fac.fusp b/examples/fac.fusp new file mode 100644 index 0000000..38643d5 --- /dev/null +++ b/examples/fac.fusp @@ -0,0 +1,7 @@ +mul a b = code mul a b; +sub a b = code sub a b; + +fac 0 = 1; +fac n = mul n (fac (sub 1 n)); + +main = fac 5; |