プログラムを見て「印刷ミス」なんじゃないかと思った。 (define (cons x y) (define (dispatch m) (cond ((= m 0) x) ((= m 1) y) (else (error "Argument not 0 or 1 -- CONS" m)))) dispatch) (define (car z) (z 0)) (define (cdr z) (z 1)) こんなので…

オブジェクト指向っぽくなってきましたね。今回は点と線、長方形の定義。グラフィックばっかりやってた時期があるので、馴染深い所です。 問題2.2 点と線を定義して、線の中点を出す問題。 ;segment (define (make-segment start end) (cons start end)) (de…