3.60

来源:互联网 发布:raysource mac 编辑:程序博客网 时间:2024/06/06 17:39
 
;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貌似对无限流的隐式表达有点问题
原创粉丝点击