mirror of
https://github.com/sdiehl/write-you-a-haskell.git
synced 2024-08-16 15:11:06 +03:00
commit
63d0d4bb5d
@ -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