saundersp/haskell_playground
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed the Fibonacci recurrence relation to the modern definition

Browse Source
This commit is contained in:
saundersp 2024-03-09 19:01:41 +01:00
parent 469b5b2b3d
commit 855727ba1d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Main.hs
View File

@ -146,5 +146,5 @@ fibonacci n = fibonacci (n - 1) + fibonacci (n - 2)
-- Fibonnaci sequence until indice n -- Fibonnaci sequence until indice n
fibonnaciSequence :: Int -> [Int] fibonnaciSequence :: Int -> [Int]
fibonnaciSequence 0 = [0] fibonnaciSequence 0 = [0]
fibonnaciSequence 1 = [1] fibonnaciSequence 1 = [0, 1]
fibonnaciSequence n = fibonnaciSequence (n - 1) ++ [fibonacci n] fibonnaciSequence n = fibonnaciSequence (n - 1) ++ [fibonacci n]