История изменений

Исправление AKonia, 19.01.21 20:25 (текущая версия) :

(defun pow(x n)
    (if(< n 0)
       1
       (if(= n 1)
          x
          (* x (pow x (- n 1))))
       )
    )

clisp переваривает

Исправление AKonia, 19.01.21 20:24:

(defun pow(x n)
    (if(< n 0)
       1
       (if(= n 1)
          x
          (* x (pow x (- n 1))))
       )
    )

Исходная версия AKonia, 19.01.21 20:23:

(defun pow(x n)
    (if(= n 0)
       1
       (if(= n 1)
          x
          (* x (pow x (- n 1))))
       )
    )