朝イチ
昨晩のナニですが、マンガが無い。
ってか、テストデータが微妙なのかなぁ。
(*table* ((3 . 5) ((1 . 7) () ((2 . 1) () ())) ((5 . 2) ((4 . 3) () ()) ((6 . 4) () ()))))))
ではなくて
(* table* (3 . 5) ((1 . 7) () ((2 . 1) () ())) ((5 . 2) ((4 . 3) () ()) ((6 . 4) () ())))
が正解なんだったら assoc に渡すのは (cadr t) ではなくて (cdr t) で良いはずなんですが ...