;; 明示的ディスパッチによるジェネリック演算 データの型が追加されるたびに各演算にその型用の演算を追加していく． 新しい演算が追加されたときはそれを追加するだけ． ;; データ主導スタイル データの型が追加されると，それらをパッケージを作ってputす…

(define (make-from-mag-ang r a) (define (dispatch op) (cond ((eq? op 'magnitude) r) ((eq? op 'angle) a) ((eq? op 'real-part) (* r (cos a))) ((eq? op 'imag-part) (* r (sin a))) (else (error "Unknown op -- MAKE-FROM-MAG-ANG" op)))) dispatch)

;; a ;; 各事業所ごとに従業員ファイルを作っていると考え，person-fileのcar部に ;; 従業所を識別するコードを入れるようにする． (define (get-record name person-file) ((get 'get-record (division person-file)) name file)) (define (division file) …