Prechádzame zoznam, kým nenarazíme na číslo alebo koniec.

Vhodná je schéma predikát EVERY.

Pre prázdny zoznam vráti T, ak by to nevyhovovalo špecifikácií, treba testcislo použiť v inej funkcií, ktorá najprv otestuje či zoz nie je prázdny.

(defun testcislo (zoz)
 (cond ((null zoz) T)
       ((NUMBERP (first zoz)) (testcislo (rest zoz)))
       (T NIL)
 )
)

Príklady použitia:
(testcislo '(1 2 3)) -> T
(testcislo '(1 x 3)) -> NIL

Autori

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