このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/259
#  [1] 授業単元:C言語復習 
#  [2] 問題文(含コード&リンク): 
#  n個の文字列(アルファベットの文字列)を入力して、頭文 
#  字をABC…順に並べ替えて表示するプログラムを作りなさい。 
#  例)  n=3  
#         TANALA 
#         EGUCHI 
#         SASAKI 
#  に対して 
#   EGUCHI 
#     SASAKI 
#   TANAKA 
#   

'n個の文字列(アルファベットの文字列)を入力して、頭文字をABC…順に並べ替えて表示する' :-
        催促付き整数入力('何行の文字列を入力しますか : ',_何行),
        findall(_文字列,(
                    for(1,_,_何行),
                    get_line(_文字列)),
                _文字列ならび),
        '頭文字をABC…順に並べ替えて表示する'(_文字列ならび,_並び替えられた文字列).

'頭文字をABC…順に並べ替えて表示する'(_文字列ならび,_並び替えられた文字列) :-
        findall([_頭文字,_文字列],(
                    member(_文字列,_文字列ならび),
                    sub_atom(_文字列,0,1,_,_頭文字)),
                L1),
        sort(L1,L2),
        findall(_文字列2,member([_,_文字列2],L2),_並び替えられた文字列).