1.21 简单的将书上代码敲了一遍。 非常顺利就过了。

1.22 就悲剧了。

         先按书本的意思。代码非常快就写完了。但计算的时间在机子上漂浮不定。 3-5倍之间。

         代码例如以下：

(define (search-for-primes start end count)
    (define (timed-prime-test n)
(newline)
        (display n)
(start-prime-test n (runtime)))
    (define (start-prime-test n start-time)
(if (prime? n)
   (report-prime (- (runtime) start-time))
   0))
    (define (report-prime elapsed-time)
(display " *** ")
        (display elapsed-time)
1)
    (define (prime? n)
(= n (smallest-divisor n)))
    (define (search-iter start end count)
(if (or (> start end) (= count 0))
   0
   (if (= (timed-prime-test start) 1)
(search-iter (+ start 1) end (- count 1))
(search-iter (+ start 1) end count))))
    (search-iter start end count))

      问题就悲剧在。我想换一种想法。

     一般常见的project測试代码都是例如以下风格：

记录開始时间

        调用函数

        计算结束时间

    于是，我非常悲剧地写了以下代码

   (print-test-time   (runtime)  (search-iter start end count)  (runtime))

   却惊奇的发现前后2次计算的时间竟然全然一样。

   再认真将书从头看了一遍， 我晕， 这本书最重要的东西竟然没讲。 函数的參数究竟按什么顺序求的？

  google了一下，晕， 竟然是依赖编译器确定。

也就是说不知道。

  对于一般状态无关的參数的确没有问题。 但对于时间依赖的參数就悲剧了。

  再回过头来思考计算模型， 发现这本书更大的问题。

对什么东西能做操作符，什么东西能做操作数竟然全然没有给出清晰的定义。

  1和1.0， 1/1, true, 究竟是不是一回事，书本也全然没讲清楚。

  作为讲编程语言的书来说。 这本书真是一塌糊涂。

 上面的函数 (timed-prime-test n) 有3个语句， 概念进入得非常突入， 这3个语句运行按什么顺序呢？ 返回值是哪个呢？ 基本上靠读者去猜。

（本人猜的是从上往下运行，返回最后一个语句 ，可是不是程序确实是这样还不大自信）

(newline)
        (display n)
(start-prime-test n (runtime)))