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)