From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 2 Feb 2016 19:24:50 +0100 Subject: Moved to 1415 directory --- files/practicum/StdDynSet.icl | 44 ------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 files/practicum/StdDynSet.icl (limited to 'files/practicum/StdDynSet.icl') diff --git a/files/practicum/StdDynSet.icl b/files/practicum/StdDynSet.icl deleted file mode 100644 index ee43631..0000000 --- a/files/practicum/StdDynSet.icl +++ /dev/null @@ -1,44 +0,0 @@ -implementation module StdDynSet - -import StdEnv -import StdDynamic - -class Set a | TC, ==, toString a - -:: Set = Set [Dynamic] - -instance zero Set -where zero = abort "zero instance voor Set nog niet geimplementeerd.\n" - -instance toString Set -where toString a = abort "toString instance voor Set nog niet geimplementeerd.\n" - -instance == Set -where == a b = abort "== instance voor Set nog niet geimplementeerd.\n" - -toSet :: a -> Set | Set a -toSet a = abort "toSet nog niet geimplementeerd.\n" - -nrOfElts :: Set -> Int -nrOfElts a = abort "nrOfElts nog niet geimplementeerd.\n" - -isEmptySet :: Set -> Bool -isEmptySet a = abort "isEmptySet nog niet geimplementeerd.\n" - -memberOfSet :: a Set -> Bool | Set a -memberOfSet x a = abort "memberOfSet nog niet geimplementeerd.\n" - -isSubset :: Set Set -> Bool -isSubset a b = abort "isSubset nog niet geimplementeerd.\n" - -isStrictSubset :: Set Set -> Bool -isStrictSubset a b = abort "isStrictSubset nog niet geimplementeerd.\n" - -union :: Set Set -> Set -union a b = abort "union nog niet geimplementeerd.\n" - -intersection :: Set Set -> Set -intersection a b = abort "intersection nog niet geimplementeerd.\n" - -without :: Set Set -> Set -without a b = abort "without nog niet geimplementeerd.\n" -- cgit v1.2.3