Anonymous user
Arithmetic evaluation: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|J}}) |
|||
Line 2,187:
expr = buildExpressionParser table factor
where table = [[op "*" (Mul) AssocLeft, op "/" (Div) AssocLeft]
on f g = \x y -> f (g x) (g y)
▲factor = between (char '(') (char ')') expr <|> (Num . read <$> many1 digit)
eval :: Num a => Exp -> a
| |||