Add implementation of exercise 3-52

Author: ramsayleung

README.org

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

chapter3/exercise3-51.rkt

@@ -21,3 +21,5 @@
 ;;; 了，所以不会被打印，只会输出 6 - 7
 ;;; 返回 7
 (stream-ref x 7)
+
+;;; 明确输出和返回值的差别

chapter3/exercise3-52.rkt

@@ -0,0 +1,33 @@
+#lang racket
+(require "stream.rkt")
+
+(define sum 0)
+(define (accum x)
+  (set! sum (+ x sum))
+  sum)
+
+;;; 返回1-20的流:
+;;; 返回一个 1 3 6 10 15 21 28 36 45 55 66 78 91 105 120 136 153 171
+;;; 190 210 的流, 因为 string-enumerate-interal 会生成 1-20 的流, 然后
+;;; accum 会累加前面的流, 然后再生成一个新的流
+(define seq (stream-map accum (stream-enumerate-interal 1 20)))
+
+;;; 返回 6, 10, 28, 36, 66, 78, 120, 136, 190, 210 的流
+(define y (stream-filter even? seq))
+
+;;; 返回 10,15,45,55,105,120,190,210 的流
+(define z (stream-filter (lambda (x)
+                           (= (remainder x 5)
+                              0))
+                         seq))
+;;; 返回 136
+(stream-ref y 7)
+
+;;; 输出 10,15,45,55,105,120,190,210
+(display-stream z)
+
+;;; 如果我们简单地将 (delay <expr>) 实现成 (lambda <expr>),
+;;; 而不使用 memo-proc 提供的优化，响应的结果会是一样的，但是存在非常
+;;; 多无效的重复计算。
+;;; memo-proc 的作用就是确保已经计算过的结果，不会重复计算，但对计算结
+;;; 果没有影响