Определить рекурсивную функцию, возвращающую произведение двух целых положительных чисел - Lisp

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

Определить рекурсивную функцию, возвращающую произведение двух целых положительных чисел (использовать суммирование). В Lisp пытаюсь разобраться. Очень нужно к зачету.

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

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

(defun product (n m)
  (if (zerop n) 0 (+ m (product (1- n) m))))
 
> (product 8 17)
136

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

В коде определена рекурсивная функция с именем product, которая принимает два аргумента n и m.

Условие if проверяет, равно ли значение переменной n нулю.
Если n равно нулю, то результатом работы функции будет 0.
Если n не равно нулю, то результатом работы функции будет сумма m и результата вызова функции product с аргументами (1-n) и m.