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 |#