2018-02-01から1日間の記事一覧

プログラミングHaskell 8.10 練習問題

1. def nat: Parser[Int] = for { xs <- many1(digit) } yield xs.mkString.toInt def neg: Parser[Int] = for { _ <- symbol("-") n <- nat } yield -n def int: Parser[Int] = neg +++ nat 2. def comment: Parser[Unit] = for { _ <- symbol("--") _ <- m…

プログラミングHaskell 8.10 練習問題

def nat: Parser[Int] = for { xs <- many1(digit) } yield xs.mkString.toInt def neg: Parser[Int] = for { _ <- symbol("-") n <- nat } yield -n def int: Parser[Int] = neg +++ nat def comment: Parser[Unit] = for { _ <- symbol("--") _ <- many(sa…