Linear Algebra (9)

ええとあまり時間も無いので試験を書いてみます。
以下。

(test-section "inverse")
(test* "Middle"
       '((1 0) (3 2))
       (F-i-lambda 1 
		   -1/5 
		   (F-i-j-lambda 1 
				 2 
				 -3 
				 (F-i-lambda 1 
					     2 
					     '((2 3) (3 2)))))
       )

(test* "full"
       '((1 0) (0 1))
       (F-i-lambda
	2
	1/2
	(F-i-j-lambda 
	 2
	 1 
	 -3
	 (F-i-lambda 
	  1 
	  -1/5 
	  (F-i-j-lambda 
	   1 
	   2 
	   -3 
	   (F-i-lambda 
	    1 
	    2 
	    '((2 3) (3 2)))))))
       )

両方パスはしてます。引数は手動設定なんでこれを自動計算してもらうようにすれば良い。んですが、これをどうやって手続きオブジェクトにすれば良いのやら。
これはこれで現実トウヒなネタとしては最適。