Základom je schéma zobrazenie.

(defun num2N (zoz)
 (cond ((null zoz) NIL)
       ((NUMBERP (first zoz)) (cons (first zoz) (num2N (rest zoz))))
       (T (cons 0 (num2N (rest zoz))))
 )
)

; Príklad:
(num2N '(1 2 (3) x 4)) ; -> (1 2 0 0 4)

Autori

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