括弧がバランスしていればyes，そうでなければnoを出力 main = getContents >>= (\x->putStr $ unlines $map (judge.scope) $lines x) judge :: [Bool] -> String judge ks = if last ks == True then "yes\n" else "no\n" scope :: String -> [Bool] scope …

なる、大学生のプログラミングコンテストが存在するらしい 高校生の時に挑戦した、パソコン甲子園のようなものですね 使用言語も、C/C++,Javaと、 あのときとなにも変わらない 例によって Haskellで解いてみよう！ 先ずは易しい。第一問から 入力されたnに対…

というわけで 帰宅して、夕食を食べたので、さきほどのをそのまんま流用し、Queueを書いてみた data Queue a = Empty | Value a (Queue a) deriving Show fqueue :: Queue String -> String -> Queue String fqueue queue str = case str of "dequeue" -> de…

HaskellでStackを書いてみた。 リストの処理をすればいいだけなんですけどね。 代数的データ型の扱いに慣れようと思って data Stack a = Empty | Value a (Stack a) deriving Show fstack :: Stack String -> String -> Stack String fstack stack str = cas…