From 8ea9fc2536aa0eb45092ed3654dba19b0c8e7c20 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rosehogenson@posteo.net>
Date: Sat, 27 Apr 2024 10:19:54 -0700
Subject: Implement recursive functions.

---
 tests/13-fibonacci.sml | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 tests/13-fibonacci.sml

(limited to 'tests/13-fibonacci.sml')

diff --git a/tests/13-fibonacci.sml b/tests/13-fibonacci.sml
new file mode 100644
index 0000000..ec89f70
--- /dev/null
+++ b/tests/13-fibonacci.sml
@@ -0,0 +1,7 @@
+val rec fib = fn n =>
+  case n of
+    0 => 0
+  | 1 => 1
+  | _ => __builtin "add" (fib (__builtin "sub" (n, 1)), fib (__builtin "sub" (n, 2)))
+
+val _ = __builtin "exit" (__builtin "add" (fib 9, 8))
-- 
cgit v1.3.1