diff options
Diffstat (limited to 'samples/recursion.tunk')
| -rw-r--r-- | samples/recursion.tunk | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/samples/recursion.tunk b/samples/recursion.tunk new file mode 100644 index 0000000..1c5ed19 --- /dev/null +++ b/samples/recursion.tunk @@ -0,0 +1,17 @@ +# Recursively calculate triangular number of n +rec n = triangle (int.sub n 1); +triangle n = int.eq? n 1 + 1 + (int.add + n + (rec n)); + +triangle 500; + +# Recursively calculate factorial of n +factorial n = + int.eq? n 0 + 1 + (int.mul n (factorial (int.sub n 1))); + +factorial 20;
\ No newline at end of file |
