(wat-aro)

無職から有職者にランクアップしました

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で割り切れる.
|#