From d4d6e972650370d529363f7db3946e58bdbd7bca Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Mon, 18 Aug 2025 23:39:47 +0300
Subject: doc: added exercise 1

---
 solutions/fibonacci.slip | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 solutions/fibonacci.slip

(limited to 'solutions')

diff --git a/solutions/fibonacci.slip b/solutions/fibonacci.slip
new file mode 100644
index 0000000..29d0437
--- /dev/null
+++ b/solutions/fibonacci.slip
@@ -0,0 +1,13 @@
+(let fibonacci (fix
+	(fn fib' (Int -> Int) (Int -> Int)
+		(fn n Int Int
+			(case n
+				(1 0)
+				(2 1)
+				(n
+					(+ (fib' (-- n)) (fib' (- n 2)))
+				)
+			)
+		)
+	)
+))
-- 
cgit v1.2.3