Scheme - 超言語的抽象(論理型プログラミング(質問システムの実装(フレームと束縛(ストリームを差し込みにする理由))))

計算機プログラムの構造と解釈[第2版]
(翔泳社)
ハロルド エイブルソン (著) ジュリー サスマン (著)
ジェラルド・ジェイ サスマン (著)
Harold Abelson (原著) Julie Sussman (原著)
Gerald Jay Sussman (原著) 和田 英一 (翻訳)

開発環境

• OS X Yosemite - Apple (OS)
• Emacs (CUI)、BBEdit - Bare Bones Software, Inc. (GUI) (Text Editor)
• Scheme (プログラミング言語)
• Gauche (処理系)

計算機プログラムの構造と解釈[第2版](ハロルド エイブルソン (著)、ジュリー サスマン (著)、ジェラルド・ジェイ サスマン (著)、Harold Abelson (原著)、Julie Sussman (原著)、Gerald Jay Sussman (原著)、和田 英一 (翻訳)、翔泳社、原書: Structure and Interpretation of Computer Programs (MIT Electrical Engineering and Computer Science)(SICP))の4(超言語的抽象)、4.4(論理型プログラミング)、4.4.4(質問システムの実装)、4.4.4.8(フレームと束縛)、問題 4.72.を解いてみる。

その他参考書籍

• Instructor's Manual to Accompany Structure & Interpretation of Computer Programs
• プログラミングGauche (Kahuaプロジェクト (著), 川合 史朗 (監修), オライリージャパン)
• Scheme手習い

問題 4.72.

ストリームを差し込みにするのは、無限ストリームの場合にも、すべてのフレームにいずれはたどり着けるようにするため。

差し込みがうまく働くのが分かる例。

;; 表明
(p 1 2)
(p a b)

;; 規則
(rule (p ?x ?y)
      (or (p ?y ?x)
          (p a b)))

;; or の1つ目にマッチする表明(無限ループ)
(p 1 2), (p 1 2), ...

;; or の2つ目にマッチする表明
(p a b)

;; 差し込みにした場合
(p 1 2), (p a b), (p 1 2), (p 1 2), ...

;; 差し込みにしなかった場合
(p 1 2), (p 1 2), ...
;; よって、表明(p a b)が出力されなくなってしまう。