(define (even? n) (= (remainder n 2) 0)) (define (fast-expt-iter result b n) (cond ((= n 0) 1) ((= n 1) (* result b)) ((even? n) (fast-expt-iter result (* b b) (/ n 2))) (else(fast-expt-iter (* b result) b (- n 1))))) (define (fast-expt b n) (fast-expt-iter 1 b n) ) (fast-expt 2 0) (fast-expt 2 1) (fast-expt 2 5) (fast-expt 2 6)