問題1.16

僕の解答

(define (even? n)
	(= (remainder n 2) 0))

(define (expt b n)
	(expt-iter b n 1))

(define (expt-iter b counter product)
	(cond ((= counter 0) product)
	      ((even? counter)
	       (expt-iter b (- counter 2) (* b b product)))
	      (else
	       (expt-iter b (- counter 1) (* b product)))))

対数じゃないじゃん…

解答例

• http://oss.timedia.co.jp/show/SICP/ex-1.16

所感

bを増やして、productは増やさないのかぁ。