SICP Exercise 3.51

SICP Exercise 3.51

> (define x (stream-map show (stream-enumerate-interval 0 10)))
0
> (stream-ref x 5)
1
2
3
4
5
5
> (stream-ref x 7)
6
7
7

其中，“>”表示shell提示符号。

Note：在执行(stream-ref x 7)时，输出结果6、7、7，其中前两个是过程show中的display-line的执行结果，最后一个7是stream-ref的返回结果。另外执行(stream-ref x 7)时之所以没有打印1、2、3、4、5，是因为我们的delay过程是带有记忆性的，它们在执行(stream-ref x 5)时已经记住了前面的值。