From eba10ebdd08adff2b61a38e9aa642299ec7884e8 Mon Sep 17 00:00:00 2001
From: kirbylife <kirbylife@protonmail.com>
Date: Sat, 28 Oct 2023 00:52:05 -0600
Subject: [PATCH] Add new exercise

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

diff --git a/simple_exercises/fibonacci.pl b/simple_exercises/fibonacci.pl
new file mode 100644
index 0000000..b7e4f0e
--- /dev/null
+++ b/simple_exercises/fibonacci.pl
@@ -0,0 +1,13 @@
+fib(N) :-
+    write(1),
+    write(", "),
+    CounterMinusOne is N - 1,
+    fib(0, 1, CounterMinusOne).
+
+fib(N1, N2, Counter) :-
+    Counter > 0,
+    Result is N1 + N2,
+    write(Result),
+    write(", "),
+    CounterMinusOne is Counter - 1,
+    fib(N2, Result, CounterMinusOne).