;3.54
(define (mul-streams a b)
(cons-stream (* (stream-car a)
(stream-car b))
(mul-streams (stream-cdr a)
(stream-cdr b))))
(define factorials (cons-stream 1
(mul-streams (stream-cdr integers)
factorials)))
3.54
最新推荐文章于 2022-10-21 11:32:44 发布