2009-01-13から1日間の記事一覧
module Parser where import Text.ParserCombinators.Parsec import Text.ParserCombinators.Parsec.Char data Expr = E_Val Val | E_Seq [Expr] instance Show Expr where showsPrec d (E_Val v) = showsPrec d v showsPrec d (E_Seq []) = showString "()"…