このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301553333/745
#  [1] 授業単元:プログラム実習 
#  [2] 問題文(含コード&リンク):  
#  名前・身長・体重・血液型が記録されたメモ帳(ファイル)がある。 
#  これを身長順にソートして並べ替えてコマンドプロンプト上に 
#  表示させるプログラムを作成せよ。 
#  なお、今回メモ帳はstudentsdata.txtという名前で保存されていることとする。 
# 
# 

program :-
       get_lines('studentsdata.txt',Lines),
       身長を取り出して鍵とする(Lines,LL1),
       sort(LL1,LL2),       
       append(_,[[_,Line]|R],LL2),
       writef('%t\n',[Line]),
       R = [],!.

身長を取り出して鍵とする([],[]) :- !.
身長を取り出して鍵とする([Line|R1],[[_身長,Line]|R2]) :-
        split(Line,[' ',','],[_,_身長,_,_]),
        身長を取り出して鍵とする(R1,R2).