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(原著)、和田 英一(翻訳)、ピアソンエデュケーション)の2(データによる抽象の構築)、2.3(記号データ)、2.3.3(例: 集合の表現)、集合と情報検索の問題 2.66を解いてみる。

その他参考書籍

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

問題 2.66

コード

sample.scm

(define (lookup given-key set-of-records)
  (if (null? set-of-records)
      false
      (let ((record (entry set-of-records)))
        (let ((key-of-record (key record)))
          (cond ((= given-key key-of-elment) record)
                ((< given-key key-of-record)
                 (lookup given-key (left-branch set-of-records)))
                ((> given-key key-of-record)
                 (lookup given-key (right-branch set-of-record))))))))

まだ、レコード(とその集合)を作成してないから、実際にREPLで試してないけど、こんな感じでいいのかなぁ。