files/practicum/Wisselgeld.icl

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