Update 009_datatypes.md

Fixing the Haskell code for expression evaluation
This commit is contained in:
Dru Nelson 2016-06-20 12:59:14 -07:00 committed by GitHub
parent d6e49d1cf9
commit 6247545e37

View File

@ -204,9 +204,9 @@ data T
eval :: T -> Int
eval x = case x of
Add a b -> eval a + eval b
Mul a b -> eval a + eval b
Div a b -> eval a + eval b
Sub a b -> eval a + eval b
Mul a b -> eval a * eval b
Div a b -> eval a / eval b
Sub a b -> eval a - eval b
Num a -> a
```