From 0e0ab335087338d208eb3d1780e2de2c4ad0fc08 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 18 May 2024 19:26:37 -0600
Subject: Add fibonacci code and tests

---
 fibonacci/fibonacci.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 fibonacci/fibonacci.scm

(limited to 'fibonacci/fibonacci.scm')

diff --git a/fibonacci/fibonacci.scm b/fibonacci/fibonacci.scm
new file mode 100644
index 0000000..8563587
--- /dev/null
+++ b/fibonacci/fibonacci.scm
@@ -0,0 +1,17 @@
+(define-module (fibonacci))
+
+
+(define-public (fibonacci k)
+  "Returns a fibonacci sequence of k length
+as a list"
+  (fibonacci-helper k 0 1 '()))
+
+(define (fibonacci-helper k n1 n2 lst)
+  "Recursively generates and appends numbers in the
+fibonacci sequence."
+  (if (zero? k)
+      lst
+      (fibonacci-helper (- k 1)
+                        n2
+                        (+ n1 n2)
+                        (append lst (list n1)))))
-- 
cgit v1.2.3