Переопределить следующую функцию

(defun power-of-2 (n)
  (do ((result 1 (incf result result))
       (i 0 (1+ i)))
      ((= i n) result)))

(defun power-of-2 (n)
  (do ((result 1 (* 2 result))
       (i 0 (1+ i)))
      ((= i n) result)))
 
==> power-of-2
 
(power-of-2 5)
 
==> 32

(defun n-fibonacci (n) ;без накапливающих параметров, простая рекурсия
  (if (< n 2)
      n
      (+ (n-fibonacci (- n 1)) (n-fibonacci (- n 2)))))
 
> (n-fibonacci 7)
 13
> (time (n-fibonacci 35))
Real time: 11.477045 sec.
Run time: 11.434874 sec.
Space: 0 Bytes
9227465

(defun n-fibonacci (n) ;без накапливающих, хвостовая рекурсия
  (labels ((fibonacci (n a b)
             (if (= n 0)
                 a
                 (fibonacci (- n 1) b (+ a b)))))
    (fibonacci n 0 1)))
 
> (n-fibonacci 7)
 13
> (time (n-fibonacci 35))
Real time: 0.0 sec.
Run time: 0.0 sec.
Space: 0 Bytes
9227465

(defun n-fibonacci (a b n) ;с накапливающими, хвостовая рекурсия
  (cond ((= n 2) b)
        ((n-fibonacci b (+ a b) (1- n)))))
 
> (n-fibonacci 1 1 7)
 13
> (time (n-fibonacci 1 1 35))
Real time: 0.0 sec.
Run time: 0.0 sec.
Space: 0 Bytes
9227465