Add implementation of exercise 3-51

Author: ramsayleung

README.org

@@ -25,7 +25,7 @@
   习题完成情况:
   - 章节一: 43/46
   - 章节二: 88/97
-  - 章节三: 50/82
+  - 章节三: 51/82
   - 章节四: TODO
   - 章节五: TODO
 * 运行

chapter3/exercise3-51.rkt

@@ -0,0 +1,23 @@
+#lang racket
+(require "stream.rkt")
+
+(define (show x)
+  (display-line x)
+  x)
+
+
+;;; 输出 0, 因为 (stream-enumerate-interal 0 10) 会生成一组 0 - 10 的
+;;; 流, 而 stream-map 会把第一个流应用在 show 函数, 延时未执行的流是
+;;; 1 - 10
+(define x (stream-map show (stream-enumerate-interal 0 10)))
+
+;;; 输出 1 2 3 4 5，因为 stream-ref 需要递归访问 0 - 5, 因为 0 已经被
+;;; 处理(memo-proc), 所以只会输出 1 - 5
+;;; 返回 5, show 函数不只打印，还会返回值，而5是最后一个值，所以也被返
+;;; 回了.
+(stream-ref x 5)
+
+;;; 输出 6 7, 因为 stream-ref 需要递归访问 0 - 7, 而 0-5 都已经被计算
+;;; 了，所以不会被打印，只会输出 6 - 7
+;;; 返回 7
+(stream-ref x 7)

chapter3/stream.rkt

@@ -65,6 +65,13 @@
                       (stream-filter pred (stream-cdr stream))))
         (else (stream-filter pred (stream-cdr stream)))))
 
+(define (stream-enumerate-interal low high)
+  (if (> low high)
+      the-empty-stream
+      (cons-stream
+       low
+       (stream-enumerate-interal (+ low 1) high))))
+
 ;; Testing utility functions
 (define (stream-to-list stream n)
   (if (or (= n 0)
@@ -165,4 +172,9 @@
              (check-equal? result 'done)
              (check-equal? results '(5 4 3 2 1))
              )
+
+  (test-case "Test for stream-enumerate-interal"
+             (define s (stream-enumerate-interal 5 10))
+             (check-equal? (stream-to-list s 10) '(5 6 7 8 9 10))
+             )
   )