ここまで書いたけど、なぜか無限ループしてしまう。。。 (define (even? n) (= (remainder n 2) 0)) (define (double n) (* n 2)) (define (halve n) (/ n 2)) (define (* b n) (cond ((= n 0) 1) ((even? n) (double (* b (halve n)))) (else (* b (* b (- …