SICP 読み (74) 2.5.3 例: 記号代数

scheme SICP

作業ペース遅いです。2.5.3 をコツコツ進めてるんですが、試験を書くにあたって気をつける必要がある点を以下に。

  • 註釈 58 によると問題 2.78 な汎用算術演算パケジらしい。
  • がしかし問題 2.80 な =zero? が必要

こんな試験しか書けてません。

  ("add test (1)"
   (setup (lambda () 
	    (install-scheme-number-package)
	    (install-polynomial-package)))

   ("different variable"
    (assert-error (lambda () (add (make-polynomial 'x '(0 5))
				  (make-polynomial 'y '(0 5)))))
    )

   ("add constant"
    (let ((test (add (make-polynomial 'x '((0 1)))
		     (make-polynomial 'x '((0 2))))))
      (assert-equal 'polynomial (car test))
      (assert-equal 'x (cadr test))
      (assert-equal '((0 3)) (cddr test))
      )
    )
   )

明日も進捗は微妙なカンジ。
# 面白いんだけどなぁ。(とほほほ