10/02/05 16:47:01
>>229
% Prolog
'テキストファイルの内容を，別のテキストファイルにコピーする'(_コピー元ファイル,_コピー先ファイル) :-
open(_コピー元ファイル,read,Input,[type(binary)]),
open(_コピー先ファイル,write,Output,[type(binary)]),
repeat,
一文字読む(Input,C),
一文字書き出す(Output,C),
close(Input),
close(Output),!.
一文字読む(Input,C) :- get_byte(C).
一文字書き出す(Output,-1) :- !.
一文字書き出す(Output,C) :- put_byte(Output,C),fail.!.
テキストファイルの中身の内容を画面に出力(_コピー元ファイル,_コピー先ファイル) :-
get_lines(_コピー元ファイル,Lines1),
get_lines(_コピー先ファイル,Lines2),
'2テキストを並べて行表示'(Lines1,Lines2),!.
'2テキストを並べて行表示'([],[]) :- !.
'2テキストを並べて行表示'([A|R1],[B|R2]) :-
write_formatted('%t %t\n',[A,B]),
'2テキストを並べて行表示'(R1,R2).