feat: stack

Author: RyosukeDTomita

data_structure/README.md

@@ -3,7 +3,13 @@
 ## スタック(Stack)
 
 - Last In First Out でデータを取り出す構造
-- データが入るリストとスタックポインタとなる変数を用意してデータを入れた時にスタックポインタを増やして，データを取り出した時にスタックポインタを減らす。
+- 逆ポーランド記法(Reverse Polish Notation)の計算に利用される。
+
+### 実装例
+
+- [x] Python
+- [x] C
+- [x] Haskell: これだけ逆ポーランド記法の例。(Haskellのリストは単方向連結リストとして実装されているためスタックといって差し支えないため、応用例を変わりに実装)
 
 ---
 

data_structure/stack_/rpn.hs

@@ -0,0 +1,14 @@
+rpn :: [String] -> [Int]
+rpn input = foldl step [] input
+  where
+    step :: [Int] -> String -> [Int]
+    step stack operand =
+      case operand of
+        "+" -> let (a : b : rest) = stack in (b + a) : rest
+        "-" -> let (a : b : rest) = stack in (b - a) : rest
+        "*" -> let (a : b : rest) = stack in (b * a) : rest
+        n -> (read :: String -> Int) n : stack
+
+main :: IO ()
+main = do
+  print $ rpn $ words "4 8 + 1 3 + *" -- (4 + 8) * (1 + 3)