a guest Dec 18th, 2018 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- instance Monad Parser where
- return x = Parser (\s -> [(x,s)])
- m >>= k = Parser (\s -> [(y,u) | (x,t) <- apply m s, (y, u) <- apply (k x) t])
RAW Paste Data