get, putをどうしようどうしよう... ;;;get, put implements ;;;higeponさんのを参照した (define operation-table (make-hash-table)) (define (put op type item) (if (not (hash-table-exists? operation-table op)) (hash-table-put! operation-table op…

SICPの演習問題2.77をやろうとしたところ，どうしてもgetがうまくできず，苦しんでいた． ということで，あきらめてnaoya_tさんのを拝借. ちゃんと理解してから使わなければ． また以前のやつはなぜgetがうまくいかないのかを考える．