Scheme - 状態の管理(集合(手続きdelete-1))

プログラミングGauche
(オライリージャパン)
Kahuaプロジェクト (著) 川合 史朗 (監修)

開発環境

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

プログラミングGauche(Kahuaプロジェクト (著)、 川合 史朗 (監修)、オライリージャパン)の9章(状態の管理)、9.1(集合)、練習問題(p.112)を解いてみる。

その他参考書籍

• Scheme手習い(Daniel P. Friedman (著), Matthias Felleisen (著), 元吉 文男 (翻訳), 横山 晶一 (翻訳), オーム社)
• 計算機プログラムの構造と解釈(Gerald Jay Sussman(原著)、Julie Sussman(原著)、Harold Abelson(原著)、和田 英一(翻訳)、ピアソンエデュケーション、原書: Structure and Interpretation of Computer Programs (MIT Electrical Engineering and Computer Science)(SICP))
• Instructor's Manual to Accompany Structure & Interpretation of Computer Programs

練習問題(p.112)

コード(BBEdit, Emacs)

sample.scm

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

(define (delete-1 elt lis . options)
  (let-optionals* options ((cmp-fn equal?))
                  (define (loop lis)
                    (cond ((null? lis) lis)
                          ((cmp-fn elt (car lis)) (cdr lis))
                          ((eq? (delete-1 elt (cdr lis))
                                (cdr lis))
                           lis)
                          (else
                           (cons (car lis) (loop (cdr lis))))))
                    (loop lis)))

(use gauche.test)
(let ((data (list 1 2 3 4 5)))
  (test* "non-copy delete-1" data (delete-1 6 data) eq?))

入出力結果(Terminal(gosh), REPL(Read, Eval, Print, Loop))

$ ./sample.scm
test non-copy delete-1, expects (1 2 3 4 5) ==> ok
$