(define (fast-expt b n)
(expt-iter b n 1))
(define (expt-iter b n a)
(cond ((= n 0)
a)
((even? n)
(expt-iter (square b)
(/ n 2)
a))
((odd? n)
(expt-iter b
(- n 1)
(* b a)))))
(define (square x)
(* x x))
(fast-expt 2 200000)
转载于:https://www.cnblogs.com/R4mble/p/7882694.html
相关资源：JAVA上百实例源码以及开源项目
