Scheme - 関数的プログラムの部品化度とオブジェクトの部品化度(乱数発生器)

計算機プログラムの構造と解釈
Gerald Jay Sussman, Julie Sussman
Harold Abelson (原著) 和田 英一 (翻訳)

開発環境

• OS X Lion - Apple(OS)
• Emacs、BBEdit - Bare Bones Software, Inc. (Text Editor)
• プログラミング言語: MIT/GNU Scheme

計算機プログラムの構造と解釈(Gerald Jay Sussman(原著)、Julie Sussman(原著)、Harold Abelson(原著)、和田 英一(翻訳)、ピアソンエデュケーション、原書: Structure and Interpretation of Computer Programs (MIT Electrical Engineering and Computer Science)(SICP))の3(標準部品化力, オブジェクトおよび状態)、3.5(ストリーム)、3.5.5(関数的プログラムの部品化度とオブジェクトの部品化度)、問題 3.81を解いてみる。

その他参考書籍

• Instructor's Manual to Accompany Structure & Interpretation of Computer Programs

問題 3.81

コード(BBEdit)

sample.scm

(define (random-numbers s random-init)
  (let ((x (stream-car s)))
    (if (eq? x 'generate)
        (cons-stream (rand-update random-init)
                     (random-numbers (stream-cdr s)
                                     (rand-update random-init)))
        (cons-stream x
                     (random-numbers (stream-cdr s)
                                     x)))))