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

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

Помогите пожалуйста решить Используя функцию DEFUN определить функцию f (a x), где a - S-выражение, а x - список, состоящий из 2-3 элементов, которая выдает количество элементов списка x, не превосходящих a.

Решение задачи: «Определить функцию, которая выдает количество элементов списка x, не превосходящих a»

Листинг программы

(defun task (n lst)
  (count-if (lambda (x) (<= x n)) lst)) 
 
==> TASK
 
(task 3 '(1 2 3 4 5 6 0))
 
==> 4

Объяснение кода листинга программы

В коде определена функция TASK, которая принимает два аргумента: n и lst. Аргумент n — это число, а lst — это список. Внутри функции используется функция COUNT-IF. Эта функция принимает два аргумента: предикат и список. Предикат — это выражение, которое должно быть истинным для элементов списка, которые должны быть подсчитаны. В данном случае используется анонимная функция (lambda), которая проверяет, не превосходит ли элемент списка число n. Если элемент не превосходит n, то он считается. Результатом работы функции COUNT-IF является список с подсчитанными элементами. Когда функция TASK вызывается с аргументами 3 и '(1 2 3 4 5 6 0), она сначала передает эти аргументы в функцию COUNT-IF. Эта функция подсчитывает количество элементов списка, не превосходящих 3. Результатом работы функции TASK является число 4, так как в списке '(1 2 3 4 5 6 0) есть 4 элемента, не превосходящих 3.