2010-10-23 1.2.4 SICP 演習解答 ;;; 1.16 ;;; (define (fast-expt-iter x n temp) (cond ((= n 0) temp) ((even? n) (fast-expt-iter x (/ n 2) (* temp temp))) (else (fast-expt-iter x (- n 1) (* temp x))))) (define (fast-expt x n) (fast-expt-iter x n 1))