3.60

 

;3.60
(define (mul-series s1 s2)
  (cons-stream (* (stream-car s1)
                  (stream-car s2))
               (add-streams (mul-series s1 (stream-cdr s2))
                            (mul-series (stream-cdr s1) s2))))

不确定对还是不对 drracket貌似对无限流的隐式表达有点问题