長方形のデータ構造。複数のやり方があるんだろうけど、とりあえず一番簡単な幅と高さを表す二つのベクタで定義。 ; 線分の長さを求めるお助け関数 (define (length line) (let ((start (start-segment line)) (end (end-segment line))) (let ((x1 (x-point…

線分のデータ構造。特に考える必要なし。 (define (make-segment start end) (cons start end)) (define (start-segment line) (car line)) (define (end-segment line) (cdr line)) (define (make-point x y) (cons x y)) (define (x-point point) (car poi…

ふと、会社に行って、Twitterにアクセスしたらどうなるんだろう？とやってみたら、予想通りの結果。んでも、『iPhoneでやるから意味ないし、キータッチの速度を考えたらキーボードの方が早いんだから、開けてくれればいいのに』と思ったけど、いちおう、会社…