僕の解答 (define (even? n) (= (remainder n 2) 0)) (define (expt b n) (expt-iter b n 1)) (define (expt-iter b counter product) (cond ((= counter 0) product) ((even? counter) (expt-iter b (- counter 2) (* b b product))) (else (expt-iter b (-…

僕の解答 (define (even? n) (= (remainder n 2) 0)) (define (double n) (* n 2)) (define (halve n) (/ n 2)) (define (times a b) (cond ((= b 0) 0) ((even? b) (times (double a) (halve b))) (else (+ a (times a (- b 1)))))) こんな感じかな？ 解答…

僕の解答 (define (even? n) (= (remainder n 2) 0)) (define (double n) (* n 2)) (define (halve n) (/ n 2)) (define (times a b) (times-iter a b 1)) (define (times-iter a b product) (cond ((= b 0) 0) ((even? b) (times-iter (double a) (halve b)…

僕の解答 ギブ…orz 解答例 http://www.csus4.net/hiki/SICPReading/?Fujitani 所感 うー、ぜんぜんダメダメ。 とにかく２回使ってみればよかったかなぁ…