2015-11-04 SICP 問題 2.87 scheme SICP ;; polynominal-package (define (=zero? p) (= 0 (coeff p))) (put '=zero? '(polynominal) (lambda (p) (=zero? p)))