今日書いたプログラム
パーサコンビネータを試す関数。
import Text.ParserCombinators.Parsec.Prim run :: Show a => Parser a -> String -> IO () run p input = case (parse p "" input) of Left err -> print err Right c -> print c
パーサコンビネータを試す関数。
import Text.ParserCombinators.Parsec.Prim run :: Show a => Parser a -> String -> IO () run p input = case (parse p "" input) of Left err -> print err Right c -> print c