Základom je schéma zobrazenie pre ľubovolnú úroveň. Treba dať pozor na atóm NIL.

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

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

Autori

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