]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_65.rkt
projects / sicp.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
solutions to 4.35, 4.36 and 4.37
[sicp.git] / src / sicp / ex3_65.rkt
1 #lang racket
2
3 (define (ln2-summands n)
4   (cons-stream (/ 1.0 n)
5                (stream-map - (ln2-summands (+ n 1)))))
6
7 (define ln2 (partial-sums (ln2-summands 1)))
Unnamed repository; edit this file 'description' to name the repository.