Функция Print - Lisp

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

Есть функция, рекурсивно вычисляющая степень числа. Необходимо используя функцию print выводить информацию о результате выполнения отдельного рекурсивного вызова.
(defun stepen (x n)
 (cond ((= n 0) 1)
 (t (* x (stepen x (- n 1)))))
)

Код к задаче: «Функция Print - Lisp»

textual
(stepen 5 3)
 
  Вход в функцию stepen Аргументы: 5 3
    Вход в функцию stepen Аргументы: 5 2
      Вход в функцию stepen Аргументы: 5 1
        Вход в функцию stepen Аргументы: 5 0
        Возврат из функции stepen Результат: 1
      Возврат из функции stepen Результат: 5
    Возврат из функции stepen Результат: 25
  Возврат из функции stepen Результат: 125
 
==> 125

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ