awacio https://blog.hatena.ne.jp/awacio/ awacio.log https://awacio.hatenadiary.org/ Scheme SICP 問題 二つの値の等価をテストする等価述語equ?を定義し、汎用算術演算パッケージに設定せよ。この演算は通常の数、有理数、及び複素数に対して働くものとする。 解答 「異なる型」の比較については現段階で考慮されていない。（だって問題2.80以降にそれについての記述があるし。）なので、ここで考えればよいのは同じ型のデータに対しての比較になる。つーわけで、こんな感じになるか。書き加えたとこだけコメントしてます。 (define (apply-generic op . args) (let* ((type-tags (map type-tag args)) (proc (get op type-tags… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fawacio.hatenadiary.org%2Fentry%2F20101009%2F1286628331" title="SICP 問題 2.79（汎用等価述語equ?を追加。） - awacio.log" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-10-09 21:45:31 rich https://awacio.hatenadiary.org/entry/20101009/1286628331 1.0 100%