2011-11-21から1日間の記事一覧
"(abc)"の"abc"を取り出します。 import Text.Parsec import Text.Parsec.String parens :: Parser a -> Parser a parens = between (char '(') (char ')') parseText :: Parser String parseText = parens $ many $ noneOf ")" run :: Show a => Parser a -…