blob: 28d6eaa61eaa4b7ef00aef0bb4ef9f32cd50c8fa (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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
|
