Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f a b c
- => (Appl (Appl (Appl f a) b) c)
- appl :: Parser Expr
- appl = do
- f <- expr
- gs <- many expr
- return $ foldr (x y -> Appl x y) f gs
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement