PI와 비슷하게 sum 만을 뽑고, 그리고 scale을 계산하도록 하자.

(define (ln2-summands n)
(cons-stream (/ 1.0 n)
(stream-map - (ln2-summands (+ n 1))))
(define ln2-stream
(scale-stream (partial-sum (ln2-summands 1)) 4)

댓글 없음:
댓글 쓰기