하스켈에서 복잡한 산술 식

Question

어떻게하면 haskell에서 복잡한 산술 계산을 수행 할 수 있습니까?

예 :

eval numb(1) = 1 
eval (add(numb(1),numb(2))) = 3 
eval (add(mult(numb(1),numb(2)),diff(numb(3),numb(4)))) = 1 

Answer 1

거의 바로 그런

하지만, 약간의 구문 비틀기와 것은 당신이 GHC의 언어를 사용하고 있으므로. ghci에서

data Expr = Numb Int | Add Expr Expr | Diff Expr Expr | Mult Expr Expr 

eval :: Expr -> Int 
eval (Numb x) = x 
eval (Add e e') = eval e + eval e' 
eval (Diff e e') = eval e - eval e' 
eval (Mult e e') = eval e * eval e' 

:

> eval (Numb 1) 
1 
> eval (Add (Numb 1) (Numb 2)) 
3 
> eval (Add (Mult (Numb 1) (Numb 2)) (Diff (Numb 3) (Numb 4))) 
1