From 855727ba1de8fdad4a2ed76155c004d4bf785b0f Mon Sep 17 00:00:00 2001
From: saundersp <pierre.saundersgb@gmail.com>
Date: Sat, 9 Mar 2024 19:01:41 +0100
Subject: [PATCH] Changed the Fibonacci recurrence relation to the modern
 definition

---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Main.hs b/Main.hs
index 19b45f7..8386199 100644
--- a/Main.hs
+++ b/Main.hs
@@ -146,5 +146,5 @@ fibonacci n = fibonacci (n - 1) + fibonacci (n - 2)
 -- Fibonnaci sequence until indice n
 fibonnaciSequence :: Int -> [Int]
 fibonnaciSequence 0 = [0]
-fibonnaciSequence 1 = [1]
+fibonnaciSequence 1 = [0, 1]
 fibonnaciSequence n = fibonnaciSequence (n - 1) ++ [fibonacci n]