【SICP练习】121 练习3.52

2015/09/08 21:46
阅读数 37

练习3-52

原文

Exercise 3.52. Consider the sequence of expressions

(define sum 0) 

(define (accum x) (set! sum (+ x sum)) sum) 

(define seq (stream-map accum (stream-enumerate-interval 1 20)))
(define y (stream-filter even? seq)) 
(define z (stream-filter (lambda (x) (= (remainder x 5) 0)) seq)) 

(stream-ref y 7) 
(display-stream z)

What is the value of sum after each of the above expressions is evaluated? What is the printed response to evaluating the stream-ref and display-stream expressions? Would these responses differ if we had implemented (delay ) simply as (lambda () ) without using the optimization provided by memo-proc ? Explain.

代码

(define seq (stream-map accum (stream-enumerate-interval 1 20)))

sum

;Value: 1

(define y (stream-filter even? seq))

sum

;Value: 6

(define z (stream-filter (lambda (x) (= (remainder x 5) 0)) seq))

(stream-ref y 7)

;Value: 136



感谢访问,希望对您有所帮助。 欢迎关注或收藏、评论或点赞。


为使本文得到斧正和提问,转载请注明出处:
http://blog.csdn.net/nomasp


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

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部