10/01/29 18:42:01
>>496
% Prolog
ファイル入力した漢字データ（全角）を読み込み、行数を数えながら逆から表示する(_ファイル名) :-
ファイル入力した漢字データ（全角）を読み込み(_ファイル名,Lines),
行数を数えながら逆から表示する(Lines),!.
ファイル入力した漢字データ（全角）を読み込み(_ファイル名,Lines) :-
get_lines(_ファイル名,Lines).
行数を数えながら逆から表示する(Lines) :-
行数を数えながら逆から表示する(1,Lines).
行数を数えながら逆から表示する(_,[]) :- !.
行数を数えながら逆から表示する(N,[_行|R]) :-
文字列の反転(_行,_反転した行),
write_formatted('%t:%t\n',[N,_反転した行]),
N2 is N + 1,
行数を数えながら逆から表示する(N2,R).
文字列の反転(_文字列,_反転した文字列) :-
atom_chars(_文字列,_文字ならび),
reverse(_文字ならび,_反転した文字ならび),
atom_chars(_反転した文字列,_反転した文字ならび).