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