Определить функцию, которая проверяет, все ли элементы списка являются числами - Lisp - Ответ 7011560

(defun every-numberp (w)
  (eval (cons 'and (mapcar #'numberp w))))
 
> (every-numberp '(a 1)) 
NIL
> (every-numberp '(1 1)) 
T

(defun every-numberp (w)
  (loop for a in w always (numberp a)))
 
> (every-numberp '(a 1)) 
NIL
> (every-numberp '(1 1)) 
T

(defun every-numberp (w)
  (cond ((null w) t)
        ((numberp (car w)) (every-numberp (cdr w)))))
 
> (every-numberp '(a 1)) 
NIL
> (every-numberp '(1 1)) 
T

(defun every-numberp (w)
  (cond ((null w))
        ((numberp (car w)) (every-numberp (cdr w)))))
 
> (every-numberp '(1 1)) 
T
> (every-numberp '(a 1)) 
NIL

(defun every-numberp (w)
  (if w (when (numberp (car w)) (every-numberp (cdr w))) t))
 
> (every-numberp '(a 1)) 
NIL
> (every-numberp '(1 1)) 
T

(defun every-numberp (w)
  (if w (and (numberp (car w)) (every-numberp (cdr w))) t))
 
> (every-numberp '(1 1)) 
T
> (every-numberp '(a 1))
NIL

(defun every-numberp (w)
  (or (null w) (and (numberp (car w)) (every-numberp (cdr w)))))
 
> (every-numberp '(a 1))
NIL
> (every-numberp '(1 1)) 
T