Функция (count L X), считающая число элементов, больших X в списке L на всех уровнях - Lisp
Формулировка задачи:
Напишите, пожалуйста, функцию (count L X), считающую число элементов, больших X в список L на всех уровнях. Буду благодарен.
Решение задачи: «Функция (count L X), считающая число элементов, больших X в списке L на всех уровнях»
textual
Листинг программы
(defun count (lst v) (apply '+ (mapcar (lambda (x) (if (listp x) (count x v) (if (> x v) 1 0))) lst))) ==> COUNT (count '(1 (((2 ((3 (4))))) 5)) 2) ==> 3