SICP 問題 3.58

(define (expand num den radix)
  (cons-stream
   (quotient (* num radix) den)
   (expand (remainder (* num radix) den) den radix)))

#|
(/ num den)を表す少数を生成する．
(expand 1 7 10)は
1
4
2
8
5
7

(expand 3 8 10)は
3
7
5
0

つまり0.375で割り切れる．
|#