Anonymous user
Arithmetic evaluation: Difference between revisions
m
→{{header|Haskell}}
(Added Emacs Lisp Example) |
|||
Line 2,346:
import Text.Parsec.Combinator
import Data.Functor
import Data.Function (on)
data Exp = Num Int
Line 2,359 ⟶ 2,360:
factor = (between `on` char) '(' ')' expr
<|> (Num . read <$> many1 digit)
eval :: Num a => Exp -> a
eval
eval
eval
eval
▲ Div a b -> eval a `div` eval b
solution :: Num a => String -> a
| |||