Vhodné je použiť ako základ schému na počítanie prvkov (ľubovolná úroveň).

(defun pocetc (sv)
 (cond ((NUMBERP sv) 1)
       ((ATOM sv) 0)
       (T (+ (pocetc (first sv)) (pocetc (rest sv))))
 )
)

; Príklad:
(pocetc '((1 2)((3 x) 4 5 6))) ; -> 6

Autori

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