(define Alle-Operatoren
'(Käsebrot-kaufen Schinkenbrot-kaufen Schokolade-50g Schokolade-100g Dosenbier))

(define (Suche Zustand Operatoren Pfad)
; Backtracking-Verfahren , Version 1
  (cond ((Zielp? Zustand) Pfad)     ;(1)
        ((Endep? Zustand) '())      ;(2)
        ((null? Operatoren) '())    ;(3)
        ((not (null? (Suche (Wende-an (car Operatoren) Zustand) ;(4)
                            Alle-Operatoren
                            (cons (car Operatoren) Pfad))))
         (Suche (Wende-an (car Operatoren) Zustand) ;(4)
                Alle-Operatoren
                (cons (car Operatoren) Pfad)))
        (else (Suche Zustand (cdr Operatoren) Pfad)))) ;(5)

(define (Wende-an Op z)
  (cond ((equal? Op 'Käsebrot-kaufen) (- z 400))
        ((equal? Op 'Schinkenbrot-kaufen) (- z 460))
        ((equal? Op 'Schokolade-50g) (- z 155))
        ((equal? Op 'Schokolade-100g) (- z 290))
        ((equal? Op 'Dosenbier) (- z 350))
        ))

(define (Zielp? z)
  (= z 0))

(define (Endep? z)
  (< z 0))