1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
implementation module Wisselgeld
import StdEnv
:: Bedrag :== Int // een positief getal
:: Valuta :== Int // een positief getal
:: Valutas :== [Valuta] // een niet-lege lijst
:: Munt :== Int // een positief getal
:: K :== Int // een positief getal
:: WisselGeld :== [Munt]
// Implementeer en test onderstaande functie:
wissel :: Bedrag Valutas K -> [WisselGeld]
wissel ...
// Test-cases uit opdrachtenbundel:
Start = ( wissel 50 [100,50,20,10,5,1] 1
, wissel 50 [100,50,20,10,5,1] 2
, wissel 50 [100,50,20,10,5,1] 3
, wissel 50 [100,50,20,10,5,1] 4
)
|