【SICP练习】17 练习1.23



练习1.23

首先我们按照题目要求来写出相应的next函数，然后再修改find-divisor函数。

(define (next x)

      (if(= x 2)

        3

        (+ n 2)))

(define（find-divisor ntest-divisor）

      (cond((> (square test-divisor) n) n)

           ((divides? test-divisor n) test-divisor)

           (else (find-divisor n (nexttest-divisor)))))

然后重新编译之前写好的get-time&prime函数，再加以测试这道题就算完成了。

版权声明：本文为 NoMasp柯于旺 原创文章，未经许可严禁转载！欢迎访问我的博客：http://blog.csdn.net/nomasp