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/Kaart.icl | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 files/practicum/Kaart.icl (limited to 'files/practicum/Kaart.icl') diff --git a/files/practicum/Kaart.icl b/files/practicum/Kaart.icl deleted file mode 100644 index 28d6eaa..0000000 --- a/files/practicum/Kaart.icl +++ /dev/null @@ -1,23 +0,0 @@ -implementation module Kaart - -import StdEnv - -Start :: [Kaart] -Start = sorteer_naar_kleur kaartspel - -:: Kaart // maak het type af -:: Kleur // maak het type af -:: Waarde // maak het type af - -instance == Kaart where // maak de instantie af -instance toString Kaart where // maak de instantie af -instance fromString Kaart where // maak de instantie af - -kaartspel :: [Kaart] -kaartspel = // genereer alle kaarten zonder duplicaten - -sorteer_naar_waarde :: [Kaart] -> [Kaart] -sorteer_naar_waarde kaarten = // sorteer naar waarde, dan kleur - -sorteer_naar_kleur :: [Kaart] -> [Kaart] -sorteer_naar_kleur kaarten = // sorteer naar kleur, dan waarde -- cgit v1.2.3