摘要：
(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... 阅读全文
摘要：
(define (search-for-primes n) (cond (not (= (remainder n 2) 0)) ((if (prime? n) (time-prime-test n) (search-for-primes (+ n 1)))) (else (search-for-primes (+ ... 阅读全文
摘要：
题目:使用smallest-divisor过程找出下面各数的最小因子:199,1999,19999.稍对原过程作出修改:(define (divisor-iter n a) (cond ((>= (square a) n) "prime") ((= (remainder n a) 0) a) (else (divisor-iter n (+ a 1)))))(defi... 阅读全文
摘要：
今晚不知道怎么回事,注意力不集中,简单的一道题想了n久. 这道题是这样的,定义一个过程,利用公式 b^n = (b ^ (n / 2) ^ 2) (n为偶数) b^n = b * b ^ (n - 1) (n为奇数) 求b的n次幂. 这道题的诀窍就是定义一个不变量a, 使得a每次都保存着上次计算出的值.然后一层层递归下去, 直到n的值为1的时候,a就是要求的值.感... 阅读全文