Funkcia testp vracia raz T, a potom NIL,
podľa toho koľko prvkov zoznamu prejde. Čo vráti na konci závisí od
jej úvodnej inicializácie vo funkcií main. Možno použiť pre test párneho aj nepárneho počtu prvkov.

(defun testp (zoz a)
 (cond ((null zoz) a)
       (T (testp (rest zoz) (not a)))
 )       
)

(defun parny-pocet (zoz)
 (tp zoz T)
)

Autori

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