SICP 2.47
お絵書きは出てこない。
; 実装1 (define (make-freme origin edge1 edge2) (list origin edge1 edge2)) (define origin-frame car) (define edge1-frame cadr) (define edge2-frame caddr) ; 実装2 (define (make-freme origin edge1 edge2) (cons origin (cons edge1 edge2))) (define origin-frame car) (define edge1-frame cadr) (define edge2-frame cddr) ; test (define f (make-freme 1 2 3)) (origin-frame f) (edge1-frame f) (edge2-frame f)