summaryrefslogtreecommitdiff
path: root/fp2/week3/mart/StdDynSet.icl
diff options
context:
space:
mode:
authorMart Lubbers2015-05-12 15:55:58 +0200
committerMart Lubbers2015-05-12 15:55:58 +0200
commitdbc700ae318715312242f04795b485ff9370d4ac (patch)
tree321314b726b65b22966396166da18c5153b31a8f /fp2/week3/mart/StdDynSet.icl
parentWeek 3: student numbers; tarball (diff)
week45 mandatory part finished
Diffstat (limited to 'fp2/week3/mart/StdDynSet.icl')
-rw-r--r--fp2/week3/mart/StdDynSet.icl5
1 files changed, 4 insertions, 1 deletions
diff --git a/fp2/week3/mart/StdDynSet.icl b/fp2/week3/mart/StdDynSet.icl
index ffc2590..1202ce2 100644
--- a/fp2/week3/mart/StdDynSet.icl
+++ b/fp2/week3/mart/StdDynSet.icl
@@ -14,7 +14,10 @@ instance toString Set
where toString (Set a) = abort "toString not implemented"
instance == Set
-where == a b = abort "== instance voor Set nog niet geimplementeerd.\n"
+where
+ (==) (Set []) (Set []) = True
+ (==) (Set []) _ = False
+ (==) _ (Set []) = False
toSet :: a -> Set | Set a
toSet a = Set [dynamic a]