Parsecを使ってパーサを作ってみる。今のところ単純に要素を読み出しただけ。Elemの定義は昨日と一緒。 import Text.ParserCombinators.Parsec -- 数値パーサ number :: Parser Elem number = do ds <- many1 digit return $ Value $ read ds -- 演算子パー…