10/01/26 20:23:36
>>446
% Prolog
'2つのファイルから平均を出す'('fileA','fileB','fileC') :-
'2つのファイルから2つのならびを取り出す'('fileA','fileB',L1,L2),
fileAのデータを基礎に平均を計算してfileCに出力する('fileC',L1,L2),!.
'2つのファイルから2つのならびを取り出す'('fileA','fileB',L1,L2) :-
get_split_lines('fileA',[' '],L1),
get_split_lines('fileB',[' '],L2),!.
fileAのデータを基礎に平均を計算してfileCに出力する('fileC',L1,L2) :-
tell('fileC'),
fileAのデータを基礎に平均を計算して出力する(L1,L2),
told.
fileAのデータを基礎に平均を計算して出力する([],_) :- !.
fileAのデータを基礎に平均を計算して出力する([[N,A]|R1],L2) :-
member([N,B],L2),
C is (A + B) / 2,
write_formatted('%t (%t+%t)/2=%t',[M,A,B,C]),
fileAのデータを基礎に平均を計算して出力する(R1,L2).