10/02/09 11:53:10
>>654
% Prolog 出題の元スレの覗いていたら、%02d というformat表記が出ていた。
% もしかしてと試みたら私のPrologでも同じ。これまでの私の人生は何だったんだwww
% ということで、
'テキストファイルから内容を読み出し、各行の先頭に 01 02 03 というように番号を付加して画面に出力する' :-
get_lines('test02.txt',L),
'各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(1,L).
'各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(_,[]) :- !.
'各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(N,[Line|R]) :-
write_formatted('%02d %t\n',[N,Line]),
N2 is N + 1,
'各行の先頭に 01 02 03 というように番号を付加して画面に出力する'(N2,R).