2011-07-21から1日間の記事一覧
import qualified Data.Set as Set import qualified Data.List as List data EBNF = Seq EBNF EBNF | Choice EBNF EBNF | Opt EBNF | Terminal String | -- ただし空文字列禁止 NonTerminal NT deriving (Show , Eq , Ord) {- 手間なので、型シノニムで -} …
import qualified Data.Set as Set import qualified Data.List as List data EBNF = Seq EBNF EBNF | Choice EBNF EBNF | Opt EBNF | Terminal String | -- ただし空文字列禁止 NonTerminal NT deriving (Show , Eq , Ord) {- 手間なので、型シノニムで -} …