Základom je schéma zobrazenie.

(defun num2S (zoz)
 (cond ((null zoz) NIL)
       ((NUMBERP (first zoz)) (cons 'NUM (num2S (rest zoz))))
       (T (cons (first zoz) (num2S (rest zoz))))
 )
)

; Príklad:
(num2S '(1 2 (3) X 4)) ; -> (NUM NUM (3) X NUM)

Autori

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