0
scanl (\exp y -> scanl (\x -> if (isLetter x) then update exp (Literal x) "" else 
                    if x=='+' then update exp Epsilon "+" else
                    if x=='*' then update exp Epsilon "*" else
                    update exp Epsilon "|") y) Epsilon q

我的数据类型是:

data Reg = Epsilon | Literal Char | Or Reg Reg |  Then Reg Reg |  Star Reg  deriving Eq

update:: Reg -> Reg -> [Char] -> Reg 
update a b "" = (a `Then` b)
update a b "|"= (a `Or` b) 
update a b "*" = (Star a) 
update a b "+" = (plus a)
update a b "?" = (opt a)  

我正在尝试使用上面的函数将这样的 ["a|","bc"] 转换为 (Then a (Or bc)) ,但我不能使用 ParSec 。

4

1 回答 1

1

请不要“手动”执行此操作,最终会一团糟。而是学习如何使用解析器。ParSec适用于较小的示例,并且您可以获得更具可读性和灵活性的代码。

于 2013-04-19T21:31:56.787 回答