(define (expte b n)
(if (= n 0)
1
(* b (expte b (- n 1)))))
;(expte 2 200000)
;(expt 2 200000)
(define (expta b n)
(expta-iter b n 1))
(define (expta-iter b counter product)
(if (= counter 0)
product
(expta-iter b
(- counter 1)
(* b product))))
;(expta 2 200000)
(define (fast-expt b n)
(cond ((= n 0) 1)
((evena? n) (square (fast-expt b (/ n 2))))
(else (* b (fast-expt b (- n 1))))))
(define (evena? n)
(= (remainder n 2) 0))
(define (square x)
(* x x))
(fast-expt 2 200000)
;(remainder 4 3) ;求余
我用的R5RS和书上的MIT-Scheme有些许不同.
我的自带expt函数.经检验这个函数应该是用的第三种方法实现的.
不自带square函数,这是个自乘函数.
自带even?函数 为偶返回true