#!r6rs
(import (rnrs base (6)) (rnrs io simple))
;vastleggen waarde van munten
(define a 2)
(define b 1)
(define c 0.50)
(define d 0.20)
(define e 0.10)
(define f 0.05)
(define g 0.02)
(define h 0.01)
(define (bedrag x y) (begin
                      (display x) ; geef aantal munten weer (numeriek)
                      (if (> x 1) ; als aantal munten groter is als 1  
                                      (display " munten van ") ; dan
                                      (display " munt van "))  ;anders
                      (display y) ; geef waarde munten weer (numeriek)
                      (if (integer? y) ;als waarde munt integer is  
                                      (display " euro") ;dan
                                      (display " eurocent")))) ;anders
 
(define (geef wisselgeld x y)(define z (- y x)
                                (if (integer? (/ z a)) ;als bedrag deelbaar is door grootste munt, zonder rest
                                    ((bedrag (z a))     ;geef weer voor groot aantal
                                    ((bedrag (quotient z a) ; anders geef quotient deling weer
 
      (set! z (remainder (z a)))
          (if (integer? (/ z b)) ;als bedrag deelbaar is door grootste munt, zonder rest
              (bedrag (z b))  ;geef weer voor groot aantal
    (((bedrag (quotient (z b) ;anders geef quotient deling weer
 
     )))))))))))