feat: add fibonacci stream pattern

Author: RyosukeDTomita

math/fibonacci/README.md

@@ -0,0 +1,8 @@
+# フィボナッチ数列まとめ
+
+## INDEX
+
+- [再帰](./fibonacciRecursive.hs)
+- [一度計算した値を保存する](./fibonacciCache.hs)
+- [遅延評価を使った実装](./fibonacciLazy.hs): Haskellの遅延評価を利用して無限リストが定義できている。また、Haskellの遅延評価はcall-by-needなので、同じ式が複数回評価されず、メモ化と同様の効果が得られている。
+- [ストリームを使うバージョン](./fibonacciStream.hs)

math/fibonacci/fibonacciCache.hs

@@ -0,0 +1,17 @@
+-- 一度求めたフィボナッチ数列をキャッシュする
+-- NOTE: O(1)で要素にアクセスするためにVectorで実装した
+import Data.Vector (Vector, fromList, (!))
+
+fibonacciVector :: Int -> Vector Int
+fibonacciVector n = vec
+  where
+    vec = fromList [fib i | i <- [0 .. n]] -- 一度計算したものはキャッシュされる
+    fib 0 = 0
+    fib 1 = 1
+    fib i = vec ! (i - 1) + vec ! (i - 2) -- 計算済みを参照
+
+main :: IO ()
+main = do
+  let n = 35
+  let fibs = fibonacciVector n
+  print [fibs ! i | i <- [0 .. n]]

math/fibonacci/fibonacci.hs math/fibonacci/fibonacciLazy.hsmath/fibonacci/fibonacci.hs renamed to math/fibonacci/fibonacciLazy.hs

@@ -0,0 +1,12 @@
+-- フィボナッチ数列の計算（再帰定義）
+fibonacciNumber :: Int -> Int
+fibonacciNumber n
+  | n == 0 = 0
+  | n == 1 = 1
+  | otherwise = fibonacciNumber (n - 1) + fibonacciNumber (n - 2)
+
+main :: IO ()
+main = do
+  let range = [0 .. 35]
+  let fibonacciNumberList = map fibonacciNumber range
+  print fibonacciNumberList

math/fibonacci/fibonacciRecursive.hs

@@ -0,0 +1,6 @@
+fibSeq :: Int -> [Int]
+fibSeq n = map fst $ take n $ iterate (\(a, b) -> (b, a + b)) (0, 1)
+
+main :: IO ()
+main = do
+  print $ fibSeq 36