From 2cafab14203878f355a531fc6a3763881a52b108 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Mon, 18 Nov 2019 23:18:26 +0100
Subject: Notes/ideas and example tests for recursive functions

---
 tests/lambdarec.lisp | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 tests/lambdarec.lisp

(limited to 'tests/lambdarec.lisp')

diff --git a/tests/lambdarec.lisp b/tests/lambdarec.lisp
new file mode 100644
index 0000000..69b830c
--- /dev/null
+++ b/tests/lambdarec.lisp
@@ -0,0 +1,6 @@
+(define fibo (n)
+    (let ((helper (lambdarec rec (m a b)
+                        (if (= m n) b (rec m b (+ a b))))))
+        (if (<= n 0) 0
+         (if (<= n 2) 1
+          (helper 2 1 1)))))
-- 
cgit v1.2.3-54-g00ecf