<< Previous exercise (3.58) | Index | Next exercise (3.60) >>
meteorgan
a) (define (integer-series s) (stream-map * (stream-map / ones integers) s)) b) (define sine-series (cons-stream 0 (integer-series cosine-series))) (define cosine-series (cons-stream 1 (integer-series (scale-stream sine-series -1))))
a) (define (integer-series s) (stream-map * (stream-map / ones integers) s)) b) (define sine-series (cons-stream 0 (integer-series cosine-series))) (define cosine-series (cons-stream 1 (integer-series (scale-stream sine-series -1))))