Почему не считает количество элементов списка x, не превосходящих элемент а? - Lisp

Формулировка задачи:

Почему не считает количество элементов списка x не превосходящих элемент а.И как изменить код что бы начал считать?
(defun f (a x)
              (if (< (car x) a) (+ 1) (+ 0))
                (if (< (cadr x) a) (+ 1) (+ 0))
                  (if (< (caddr x) a) (+ 1) (+ 0)))

Код к задаче: «Почему не считает количество элементов списка x, не превосходящих элемент а? - Lisp»

textual
(defun f (a x)
 (if (< (car x) a) (+ 1) (+ 0))
 (if (< (cadr x) a) (+ 1) (+ 0))
 (if (< (caddr x) a) (+ 1) (+ 0)))

9   голосов, оценка 3.778 из 5


СОХРАНИТЬ ССЫЛКУ