まず (define (make-frame origin edge1 edge2) (list origin edge1 edge2)) に対する選択子がこれ。 (define (get-origin frame) (car frame)) (define (get-edge1 frame) (cadr frame)) (define (get-edge2 frame) (caddr frame)) 次に (define (make-fram…

身近な人には何回も言ってるんですけど、ぼくは携帯電話によるメールのやり取りというのが相当嫌いです。 メールを携帯電話で打つ僕は、なんかもう一文うつのにぼくは何回ボタンを押すんだこれみたいな感じで、それはもう不動明王のごとく憤怒しているわけで…

Perlってばお茶目なので、privateだのpublicだの基本ない感じです。 privateなメソッドは最初に_をつけるとかいう慣習もあるっぽいんですけど、もちろん外からは呼び出せる。 Singletonはそのクラスのオブジェクトを1つしか生成しないというデザインパターン…