(wat-aro)

生きてます

2015-11-02から1日間の記事一覧

SICP 問題 2.84

(define (apply-generic op . args) (let ((type-tags (map type-tag args)) (tower '(complex real rational scheme-number))) ;; 同じタイプか調べる述語 (define (same-type? a b) (eq? (type-tag a) (type-tag b))) ;; aよりもbのほうが階層が高いか調べ…