;;; <ersetze-element-in-liste.scm>

;;; ===== ersetze-element-in-liste ===================================
; ein element wird an allen Stellen in liste durch ein anderes ersetzt
; altes x neues x liste --> liste
(define
  (ersetze alt neu liste)
  (cond
    ; ich bin am Ende der Liste (angekommen).
    ((null? liste) liste)
    ; ich habe das zu ersetzende Element gefunden und ersetze es.
    ((equal? alt (first liste))
     (cons
      neu
      (ersetze alt neu (rest liste))))
    (else
     ; ich muss noch weiter suchen, 
     ; dabei muss ich die Liste wieder rekonstruieren.
     (cons
      (first liste)
      (ersetze alt neu (rest liste))))))

;Tests:
(ersetze 'VORHANDEN 'ERSATZ '(1 2 VORHANDEN 5 5 VORHANDEN 'LETZTES))