Функция (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
