diff options
Diffstat (limited to 'assignment-8/skeleton8.icl')
| -rw-r--r-- | assignment-8/skeleton8.icl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/assignment-8/skeleton8.icl b/assignment-8/skeleton8.icl index 122418f..562561e 100644 --- a/assignment-8/skeleton8.icl +++ b/assignment-8/skeleton8.icl @@ -1,5 +1,7 @@ module skeleton8
+// Camil Staps, s4498062
+
/**
* Advanved Progrmming 2017, Assignment 8
* Pieter Koopman, pieter@cs.ru.nl
@@ -119,7 +121,7 @@ where valAdd (VElem i) (VSet xs) = VSet $ 'S'.insert i xs
valAdd (VSet xs) (VElem i) = VSet $ 'S'.insert i xs
valAdd (VSet xs) (VSet ys) = VSet $ 'S'.union xs ys
- eval (a -. b) = on (liftA2 tuple) eval a b >>= uncurry valSub
+ eval (a -. b) = (liftA2 tuple `on` eval) a b >>= uncurry valSub
where
valSub (VElem i) (VElem j) = pure $ VElem $ i - j
valSub (VElem i) (VSet xs) = fail "Cannot subtract Set from Elem"
|