(defun spocitaj-cisla (zoz)
 (cond ((null zoz) 0)
       ((NUMBERP (first zoz)) (+ 1 (spocitaj-cisla (rest zoz))))
       (T (spocitaj-cisla (rest zoz)))
 )
)

Príklad:
(spocitaj-cisla '(a 1 2 b) ) -> 2

Autori

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