ちょっとやってみたけどここまでしか書けなかった。

(define (fast-expt2 b n a)
  (cond ((= n 0) a)
        (


なので、他の人の回答をみてみました

(define (fast-expt2 b n a)
  (cond ((= n 0) a)
        ((even? n) (fast-expt2 (* b b) (/ n 2) a))
        (else (fast-expt2 b (- n 1) (* a b)))))

(fast-expt2 2 30 1)

;参考
;http://d.hatena.ne.jp/awacio/20100212/1265983140

何が何だかわからない。。。
fast-exp 自体の理解が足りてないんだろうな。。。

でも関数名は一緒だったし、n=0 のときに a を返すのも一緒だ！
プラス思考。プラス思考。。。。orz