(defun spocitaj-atomy (zoz)
 (cond ((null zoz) 0)
       ((ATOM (first zoz)) (+ 1 (spocitaj-atomy (rest zoz))))
       (T (spocitaj-atomy (rest zoz)))
 )
)

Príklad:
(spocitaj-atomy '(1 b (3)) ) -> 2

Autori

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