SICPゼミ第13回
今日も人生がつらい。
Gauche ユーザリファレンス: 7.4 ジェネリックファンクションとメソッド
練習問題2.75
(define (make-from-mag-ang r theta) (define (dispatch op) (cond ((eq? op 'real-part) (* r (cos theta))) ((eq? op 'imag-part) (* r (sin theta))) ((eq? op 'magnitude) r) ((eq? op 'angle) theta) (else (error "Unknown op: MAKE-FROM-REAL-IMAG" op)))) dispatch)
by tube
練習問題2.76
演算が追加されやすい→data-directed
型が追加されやすい→message-passing
練習問題2.77
練習問題2.78
タグを取得する関数を
- number?とかしてtrueならnumberタグを返す
- 全部falseだったらcarする
と帰ればいい。