2008-12-08 SICP 2.7 SICP Scheme consとcarとcdrが構成子と選択子になるケースばっかりだな。メンバが3つ以上になったらconsを入れ子にするだけか。 (define (make-interval a b) (cons a b)) (define upper-bound car) (define lower-bound cdr) ; test (let ((i (make-interval 1.0 3.1))) (print (upper-bound i)) (print (lower-bound i)))