09/07/08 13:00:02
>>399
% Prolog
t399 :-
二次元構造の読み込み('test.dat',_二次元構造),
member(A,_二次元構造),
concat_atom(L,' ',S),
write_formatted('%t\n',[S]),
fail;
true.
二次元構造の読み込み(File,_二次元構造) :-
open(File,Input),
findall(L,(repeat,get_line(Input,X),(X=end_of_file,!,fail;
split(X,[' '],L))),_二次元構造),
close(Input),!.