Entries from 2011-12-27 to 1 day
ParsecでApplicativeを使ってみる追記されたコードもう Functor しか使ってない…!ということで、こういうのはどうでしょう。 parseSExp :: Parser Int parseSExp = between (char '(') (char ')') expr where expr = foldl1 <$> op <* spaces <*> nums op =…
ParsecでApplicativeを使ってみる追記されたコードもう Functor しか使ってない…!ということで、こういうのはどうでしょう。 parseSExp :: Parser Int parseSExp = between (char '(') (char ')') expr where expr = foldl1 <$> op <* spaces <*> nums op =…