Základom je schéma zobrazenie.

(defun zmen (sv1 sv2 zoz)
 (cond ((null zoz) NIL)
       ((equal sv1 (first zoz)) (cons sv2 (zmen sv1 sv2 (rest zoz))))
       (T (cons (first zoz) (zmen sv1 sv2 (rest zoz))))
 )
)

; Príklady:
(zmen 'X 'Y '(1 X 2 X))   ; -> (1 Y 2 Y)
(zmen 'X '(X) '(1 X 2 X)) ; -> (1 (X) 2 (X))

Autori

[ ZADANIE | AKO ZAČAŤ | RIEŠENIE ] Posledná aktualizácia 4. 9. 2001