2分木のレコード keyは一つしかとれない。 こんな感じでいいのかな？ (define (make-tree-table init) (let ((tree (list init '() '()))) (define (make-tree x left right) (list x left right)) (define (entry tree) (car tree)) (define (left tree) (c…

3.24 equal?以外の述語をとるようにする。 関数を受け取るようにしてみた。 (define (make-table . key) (let ((local-table (list '*table*)) (same-key? equal?)) (define (assoc key records) (cond ((null? records) #f) ((same-key? key (caar records)…