読書会 (3)

宿題検討。答えはよんどころのない理由により別途投入予定ッス。

問題 1.17

試験が以下。

(use gauche.test)

(add-load-path ".")
(load "mul")

(test-start "mul")
(test-section "mul")
(test* "(mul 1 0)"
       0
       (mul 1 0))

(test* "(mul 0 10)"
       0
       (mul 0 10))

(test* "(mul 1 1)"
       1
       (mul 1 1))

(test* "(mul 2 2)"
       4
       (mul 2 2))

(test* "(mul 6 4)"
       24
       (mul 6 4))

(test* "(mul 6 5)"
       30
       (mul 6 5))

(test* "(mul 100 100)"
       10000
       (mul 100 100))

(test-end)

ちなみに問題 1.18 についても上記と同様の試験を使い回し。若干試験が足りてない感がありますが。問題 1.18 については考え方をカンニングしました。年寄りなので勘弁して下さひ。> sw@mac の中の人
元気があれば次の問題なエントリも入れます。