Программа для определении функции - Lisp

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

Определить функцию возводящую число a в степень n

Решение задачи: «Программа для определении функции»

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

(defun -expt (m n) (if (= n 1) m (* m (-expt m (1- n)))))
 
> (-expt 2 3)
8

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

В коде определена функция с именем -expt. Данная функция принимает два аргумента: m и n. Функция проверяет, равно ли значение аргумента n единице. Если это так, то возвращается значение аргумента m. Если же значение аргумента n не равно единице, то происходит вычисление нового значения с помощью умножения значения аргумента m на разность значения аргумента m и (1-n). Вычисления производятся рекурсивно, пока значение аргумента n не станет равным единице. В данном примере вызывается функция -expt с аргументами 2 и 3. Результатом выполнения функции является число 8.