このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/50
#  [1] 授業単元:C言語基礎 
#  2.テキストファイルを引数から読み込み、中のデータの順を入れ替えて出力。 
#  〜入力例〜 
#  あいう 
#   
#  えお 
#  〜出力例〜 
#  おえ 
#   
#  ういあ 
#  コマンドプロンプト上に出力し、さらに「入力ファイル名-out.txt」の形でファイル出力も行え 
# 

テキストファイルを引数から読み込み、中のデータの順を入れ替えて出力。(_ファイル) :-
        get_lines(_ファイル,Lines),
        行を反転し同時に行文字列も反転する(L,[],L2),
        行表示(L2),
        '-out.txtを付加したファイル名で出力'(_ファイル,L2).

行を反転し同時に行文字列も反転する([],L,L) :- !.
行を反転し同時に行文字列も反転する([A|R1],Y,L) :-
        atom_chars(A,Chars),
        reverse(Chars,RChars),
        atom_chars(B,RChars),
        行を反転し同時に行文字列も反転する(R1,[B|Y],L).

行表示(L) :-
        put_lines(L).

'-out.txtを付加したファイル名で出力'(_ファイル,Lines) :-
        concat_atom([_ファイル,'-out.txt'],_出力ファイル),
        put_lines(_出力ファイル,Lines).