Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- evalM :: Exp -> Maybe Int
- evalM (Con i) = return i
- evalM (Sum e i) = do
- es <- evalM e
- is <- evalM i
- return (es + is)
- evalM (Division e i) = do
- es <- evalM e
- is <- evalM i
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
