Scheme - 超言語的抽象(論理型プログラミング(質問システムの実装(フレームと束縛(質問の並列組み合わせとしてのand実装))))

計算機プログラムの構造と解釈[第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.76.を解いてみる。

その他参考書籍

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

問題 4.76.

コード(BBEdit, Emacs)

sample75.scm

#!/usr/bin/env gosh
;; -*- coding: utf-8 -*-

(define (conjoin conjuncts frame-stream)
  (if (empty-conjunction? conjuncts)
      frame-stream
      (merge-frame (qeval (first-conjunct conjuncts)
                          frame-stream)
                   (conjoin (rest-conjuncts conjuncts)
                            frame-stream))))

(define (merge-frame frame-1 frame-2)
  (cond ((or (eq? frame-1 the-empty-stream)
             (eq? frame-2 the-empty-stream))
         the-empty-stream)
        ((equal? frame-1 frame-2) frame-1)
        (else
         (flatten-stream
          (stream-flatmap (lambda (frame)
                            (if (eq? (qeval (negate frame) frame-2)
                                     'failed)
                                frame
                                'failed))
                          frame-1)))))