SICP Chapter 1 习题试解

Exercise 1.16

(define (is-even n) 
  (remainder n 2))


(define (exp-iter a b n)
  (cond ((= n 0) a)
    ((= (is-even n) 0) (exp-iter a (* b b) (/ n 2)))
    (else (exp-iter (* a b) b (- n 1)))))

(define (expo b n)
  (exp-iter 1 b n))