;Vraag 2

(define boom-MemoLeaks
  '((persoon "Vladilet Python" "President van Recland")
    ((persoon "Dmitry Setvedev" "CEO Consprom")
     ((bedrijf "Consprom")))
    ((persoon "Segfault Naryshkin" "Commandant SVR")
     ((instelling "SVR"))
     ((persoon "Aldrich Ames" "Agent SVR"))
     ((persoon "Robert Philip Carsen" "Agent SVR")
      ((persoon "Richard M. Stallman" "Informant")
       ((persoon "Trompson" "CEO The Trompson Company")))
      ((persoon "Johnny Racket" "Cybercriminal"))))
    ((persoon "Sergei Slipovic" "Leider Silovki"))))

(define (gelijk? x y)
  (and (equal? (car x) (car y)) (equal? (cadr x) (cadr y))))

(define (naam x)
  (cadr x))

(define (hoofd x)
  (car x))

(define (ondergeschikten x)
  (cdr x))

(define (heeft-invloed? boom bron doel)
  (define (hulp-boom tegengekomen? boom)
    (if (and tegengekomen? (equal? (naam (hoofd boom)) doel))
        #t
        (if (equal? (naam (hoofd boom)) bron)
            (hulp-ondergeschikten #t (ondergeschikten boom))
            (hulp-ondergeschikten tegengekomen? (ondergeschikten boom)))))
  (define (hulp-ondergeschikten tegengekomen? boom)
    (if (null? boom)
        #f
        (or (hulp-boom tegengekomen? (car boom))
            (hulp-ondergeschikten tegengekomen? (cdr boom)))))
  (hulp-boom #f boom))




(define (geef-alle-ondergeschikten boom naam)
  (define (hulp-boom gevonden? boom ondergeschikten stappen)
    (cond (gevonden?
           (hulp-ondergeschikten gevonden? (cdr boom) (cons (hoofd boom) stappen) (+ 1 stappen)))
          ((equal? (cadr (hoofd boom)) naam)
           (hulp-ondergeschikten #t (cdr boom) ondergeschikten (+ 1 stappen)))
          (else (hulp-ondergeschikten gevonden? (cdr boom) ondergeschikten stappen))))
  (define (hulp-ondergeschikten gevonden? boom ondergeschikten stappen)
    (if (and (null? boom) gevonden?)
        ondergeschikten
        (if (null? boom)
            #f
            (or (hulp-boom gevonden? (car boom) ondergeschikten stappen)
                (hulp-ondergeschikten gevonden? (cdr boom) ondergeschikten stappen)))))
  ; (trace hulp-ondergeschikten)
  (hulp-boom #f boom '() 0))

;Ik weet wat ik moet doen ma bon da is teveel werk en ik heb al tijd genoeg verloren