diff options
| author | Camil Staps | 2016-08-26 00:46:55 +0200 |
|---|---|---|
| committer | Camil Staps | 2016-08-26 00:46:55 +0200 |
| commit | 00e2c70b01f28c9b00ec3d5096895a387676774d (patch) | |
| tree | 8ee65ec944e5cdd79d517c723e6b506fa7ee43a1 /examples | |
| parent | Added tup example (diff) | |
Linking C functions
Diffstat (limited to 'examples')
| -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; |