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