aboutsummaryrefslogtreecommitdiffstats
path: root/samples/recursion.tunk
diff options
context:
space:
mode:
Diffstat (limited to 'samples/recursion.tunk')
-rw-r--r--samples/recursion.tunk17
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