Prechádzame prvky zoznamu pokiaľ nenarazíme na niečo iné ako číslo, alebo koniec.

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

(defun testatom (zoz)
 (cond ((null zoz) T)
       ((atom (first zoz)) (testatom (rest zoz)))
       (T NIL)
 )
)

Príklady použitia:
(testatom '(a b 8 c))       -> T
(testatom '(a b (a b) 8 c)) -> NIL
(testatom '(a b (a.b) 8 c)) -> NIL

Autori

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