Základom je schéma zobrazenie pre ľubovolnú úroveň.
Treba dať pozor na NIL, ten tu nepovažujeme za atóm, ale za prázdny zoznam.

(defun oznacc (sv)
 (cond ((NUMBERP sv) 1)
       ((NULL sv) NIL)
       ((ATOM sv) 0)
       (T (cons (oznacc (first sv)) (oznacc (rest sv))))
 )
)

; Príklad:
(oznacc '(X 1 (2 X (Z 3)))) ; -> (0 1 (1 0 (0 1)))

Autori

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