Подсчитать количество чисел в заданном списке - Lisp

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

Помогите, пожалуйста. С данным языком не знаком, очень надо сдать задачу. Подсчитать количество чисел в заданном списке. Заранее огромное спасибо за помощь

Решение задачи: «Подсчитать количество чисел в заданном списке»

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

(defun num-counter (lst)
  (count-if #'numberp lst))
 
==> num-counter
 
(num-counter '(1 2 3 a b c 6))
 
==> 4

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

В коде определена функция num-counter, которая принимает один аргумент lst. Внутри функции используется другой функциональный язык программирования, который поддерживает предикат count-if. Он принимает два аргумента: предикат и последовательность. Предикат numberp проверяет, является ли элемент последовательности числом. Если это так, то он возвращает true, в противном случае — false. Функция num-counter возвращает количество чисел в списке lst. Когда вызывается функция num-counter с аргументом '(1 2 3 a b c 6), она подсчитывает количество чисел в списке и возвращает результат 4.