2008-02-26から1日間の記事一覧

問題1.21

199, 1999, 19999の最小除数を求めよ (define (smallest-divisor n) (find-divisor n 2)) (define (find-divisor n test-divisor) (cond ((> (square test-divisor) n) n) ((divides? test-divisor n) test-divisor) (else (find-divisor n (+ test-divisor …

問題1.20

ちょっと挫折しました...余力があれば後で戻ってくるかも。 AnswerBook一応、作用的順序評価はやってみた。 ; 作用的順序評価 (if (= 40 0) 206 (gcd 40 (remainder 206 40))) (if (= 40 0) 206 (if (= 6 0) 40 (gcd 40 (remainder 40 6)))) (if (= 40 0) 20…