From e4a7b6c397c430e3aa5f6fec63eeb91236069c27 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Tue, 6 Aug 2024 22:20:18 +0100
Subject: tests

---
 tests/sumrec_local2.bth | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 tests/sumrec_local2.bth

(limited to 'tests/sumrec_local2.bth')

diff --git a/tests/sumrec_local2.bth b/tests/sumrec_local2.bth
new file mode 100644
index 0000000..c9b9703
--- /dev/null
+++ b/tests/sumrec_local2.bth
@@ -0,0 +1,8 @@
+(defn (f x)
+  (defn (f' x acc)
+    (if (< x 1)
+      acc
+      (f' (- x 1) (+ acc x))))
+  (f' x 0))
+(say (f 10))
+(say (f 1000))
-- 
cgit v1.2.3