Základom je schéma zobrazenie pre ľubovolnú úroveň.

(defun inc (sv)
 (cond ((NUMBERP sv) (+ sv 1))
       ((ATOM sv) sv)
       (T (cons (inc (first sv)) (inc (rest sv))))
 )
)

; Príklad:
(inc '(1 2 (3 (4 X) 2))) ; -> (2 3 (4 (5 X) 3)))

Autori

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