]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_54.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / src / sicp / ex3_54.rkt
1 #lang planet neil/sicp
2
3 (define (mul-streams s1 s2)
4   (stream-map * s1 s2))
5
6 (define factorial (cons-stream 1 (mul-streams factorial (integers-starting-from 2))))
7
8
9