2007-06-01から1日間の記事一覧
a 問題1.17 あっさり解けた。 (define (double x) (* x 2)) (define (halve x) (/ x 2)) (define (mul a b) (cond ((= b 0) 0) ((even? b) (+ a (double (mul a (halve x))))) (else (+ a (mul a (- b 1)))))) 問題1.18 1.17を反復にする問題。簡単だと思っ…
a 問題1.17 あっさり解けた。 (define (double x) (* x 2)) (define (halve x) (/ x 2)) (define (mul a b) (cond ((= b 0) 0) ((even? b) (+ a (double (mul a (halve x))))) (else (+ a (mul a (- b 1)))))) 問題1.18 1.17を反復にする問題。簡単だと思っ…