grifonseesПомогите исправить задачу на LISP: Создать программу, вычисляющую количество отрицательных элементов введенного списка. Программа есть но в одном случае неработает, если вводишь (f `(1 2 -4 () -2)) и она выводит ошибку из-за пустого списка внитри((

вот текст программы:

(defun F (L)
(if L
(let
((x (car L)))
(mapcar '+
(if (atom x)
(cond
((plusp x) (list 1))
(T (list 0)))
(F x))
(F (cdr L))))
(list 0)))
а может так и нужно?, если нет, то заменить проверку - вместо "atom" - на лисповый предикат проверки, что это число, возможно он называеться "number", я не знаю.

grifonseesСпосибо, заработало только надо "numberp":)я лиспа не знаю, потому и не удивлен, что привел не верное имя.

grifonsees,

иди помоги собрату совему в соседнем топике