Update sample code

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