diff options
| author | Camil Staps | 2017-11-19 14:08:14 +0100 |
|---|---|---|
| committer | Camil Staps | 2017-11-19 14:08:14 +0100 |
| commit | 18ae7a81f459512d67d0a550fdaac5298164bded (patch) | |
| tree | babb2eed4ccdc8919fcd4906544cc7e822d58e3a /assignment-8/skeleton8.icl | |
| parent | Use Data.Set; fix bug where program was not updated (diff) | |
Student number
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"
|