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))