朝イチ

昨晩のナニですが、マンガが無い。
ってか、テストデータが微妙なのかなぁ。

(*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) で良いはずなんですが ...