chore: add fibonacci

Author: RyosukeDTomita

etc/fibonacci.hs

@@ -0,0 +1,11 @@
+-- 無限リストを使ったメモ化フィボナッチ
+fibs :: [Int]
+-- [0, 1]は初期値にする
+fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
+-- fibsにtail fibs(先頭を1つ落としたfibs)を足す。
+-- ghci> 0 : 1 : zipWith (+) [0,1,1,2,3] [1,1,2,3]
+-- [0,1,1,2,3,5]
+
+main :: IO ()
+main = do
+  print $ take 36 fibs

etc/fibonacci_old.hs

@@ -0,0 +1,16 @@
+import Data.Array
+
+-- nまでのフィボナッチ数列を計算して配列にキャッシュ
+fibonacciArray :: Int -> Array Int Int
+fibonacciArray n = arr
+  where
+    arr = listArray (0, n) [fib i | i <- [0..n]]
+    fib 0 = 0
+    fib 1 = 1
+    fib i = arr ! (i - 1) + arr ! (i - 2)  -- 計算済みを参照
+
+main :: IO ()
+main = do
+    let n = 35
+    let fibs = fibonacciArray n
+    print [fibs ! i | i <- [0..n]]