メンドくなってきた!!
各部署には独自のフォーマットで従業員レコードがファイルに格納されているんですから、たぶんですけど各部署には、やっぱしそのレコードから給料を抜き出す関数が定義されているんだろうと。
そしたらその抜き出し関数を部署をキーとしてテーブルに登録してやっとけばこんな感じでかけるんじゃないか。
(define (get-salary division employee-record) ((get 'get-salary division) employee-record))
メンドくなってきた!!
各部署には独自のフォーマットで従業員レコードがファイルに格納されているんですから、たぶんですけど各部署には、やっぱしそのレコードから給料を抜き出す関数が定義されているんだろうと。
そしたらその抜き出し関数を部署をキーとしてテーブルに登録してやっとけばこんな感じでかけるんじゃないか。
(define (get-salary division employee-record) ((get 'get-salary division) employee-record))