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