(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