]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_58.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / src / sicp / ex3_58.rkt
1 #lang racket
2
3 (define (expand num den radix)
4   (cons-stream
5    (quotient (* num radix) den)
6    (expand (remainder (* num radix) den) den radix)))
7
8 #|
9
10 The function gives the digits in the fractional part of the division as a
11 stream.
12
13 |#