10/02/09 08:38:03
>>654
% Prolog
'テキストファイルから内容を読み出し、各行の先頭に 01 02 03 というように番号を付加して画面に出力する' :-
get_lines('test02.txt',L),
'各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(1,L).
'各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(_,[]) :- !.
'各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(N,[Line|R]) :-
write_formatted_atom('%2d',[N],A),
空白を0に置換する(A,A2),
write_formatted('%t %t\n',[A2,Line]),
N2 is N + 1,
'各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(N2,R).
空白を0に置換する(A,A2) :-
atom_chars(A,L),
ならびの置換(' ','0',L,L2),
atom_chars(A2,L2).