sicp-ex-3.65



<< Previous exercise (3.64) | Index | Next exercise (3.66) >>


meteorgan



(define (ln2-summands n)
        (cons-stream (/ 1.0 n) 
                     (stream-map - (ln2-summands (+ n 1)))))
(define ln2-stream
        (partial-sums (ln2-summands 1)))