Code Review

Compare your solutions

    (define (solution base degree)

  (define (s-iter b n a)
    (cond
      ((< n 0) (/ 1 (s-iter b (- n) a)))
      ((= n 0) (if (= a 1) 1 a))
      ((even? n) (s-iter (* b b) (/ n 2) a))
      (else (s-iter b (- n 1) (* a b)))))

  (s-iter base degree 1))