Add fibonacci code and tests

1 files changed, 17 insertions, 0 deletions

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)))))