Определить рекурсивную функцию, возвращающую произведение двух целых положительных чисел - Lisp
Формулировка задачи:
Определить рекурсивную функцию, возвращающую произведение двух целых положительных чисел (использовать суммирование).
В Lisp пытаюсь разобраться. Очень нужно к зачету.
Решение задачи: «Определить рекурсивную функцию, возвращающую произведение двух целых положительных чисел»
textual
Листинг программы
- (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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
