mirror of
https://github.com/sdiehl/write-you-a-haskell.git
synced 2024-10-03 22:38:04 +03:00
Update 009_datatypes.md
Fixing the Haskell code for expression evaluation
This commit is contained in:
parent
d6e49d1cf9
commit
6247545e37
@ -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
|
||||
```
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user