いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

400:デフォルトの名無しさん
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),!.

次ページ

続きを表示

1を表示