diff options
Diffstat (limited to 'fp2/week3/mart/StdDynSet.icl')
| -rw-r--r-- | fp2/week3/mart/StdDynSet.icl | 5 |
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]
|