このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/122
#  [1] 授業単元:プログラミング  
#  [2] 問題文  
#  コンストラクタでrow,columnを指定して、動的に確保 
#  デストラクタを解放 
#  これで足し算メソット add(matrix Y)を作ってください 
#  

行列を確保する(_row,_column,_行列) :-
        findall(L,(
                    for(1,_,_row),
                    length(L,_column)),
                _行列).

足し算(_行列1,_足し算された行列) :-
        すべての行を足し算して答えを列として追加する(_行列1,_行列2),
        転置(_行列2,_行列3),
        すべての行を足し算して答えを列として追加する(_行列3,_行列4),
        転置(_行列4,_足し算された行列).

すべての行を足し算して答えを列として追加する([_行1|R1],[_行2|R2]) :-
        加算(_行1,_和),
        append(_行1,[_和],_行2),
        すべての行を足し算して答えを列として追加する(R1,R2).