10/06/19 22:39:23
>>3
% Prolog (その一)
'文字列"Computer1Programing2Communication3Electro4"を、"test.txt"に書き込む' :-
open('test.txt',write,Output),
write(Output,'Computer1Programing2Communication3Electro4'),
close(Output).
'ファイル"test.txt"から文字列も読み込み、並びを逆にしてファイル"sample.txt"に出力する' :-
get_lines('test.txt',Lines),
open('sample.txt',write,Output),
append(_,[Line|R],Lines),
並びを逆に(Line,_並びを逆にしたLine),
write_formatted(Output,_並びを逆にしたLine),
R = [],
close(Output).
並びを逆に(Line,_並びを逆にしたLine) :-
atom_chars(Line,Chars),
reverse(Chars,Rchars),
atom_chars(_並びを逆にしたLine,Rchars).