このディレクトリの索引
#
#  ファイルから行列を取り込む
#

ファイルから行列を取り込む(_ファイル名,_行列) :-
        see(_ファイル名),
        readln(L),
        行列を取り込む(L,_行列),
        seen.

行列を取り込む([end_of_file],[]) :- !.
行列を取り込む(L,[L|R]) :-
        readln(L2),
        行列を取り込む(L2,R).