このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1305867431/848
#  すいませんおねがいします。日曜までです。 
#   
#   
#  String型の配列として与えられた人の名前を全て使って「しりとり」を作りましょう。 
#  参考資料ファイルを自分のプロジェクトにコピーもしくはインポートし、50音順で並んでいる配列をしりとりの原理で並び替え、出力するプログラムを作成してください。 
#  -----------Original NameList----------- 
#  ごりら 
#  らっぱ 
#  りんご 
#  -----------Sorted NameList----------- 
#  りんご 
#  ごりら 
#  らっぱ 
#   
#  単語は適当に自分がうめるのでプログラミングそのものだけつくってもらえませんか? 
#   
# 
# 

しりとり :-
        write('最初の語彙をすべてで入力してください : '),
        get_line(_語彙),
        しりとり([],_語彙).

しりとり(_すでに使った語彙ならび,_語彙) :-
        sub_atom(_語彙,_,1,0,_文字),
        'Original NameList'(_次の語彙),
        \+(append(_,[_次の語彙|_],_すでに使った語彙ならび)),
        writef('%t\n',[_次の語彙]),
        しりとり([_次の語彙|_すでに使った語彙ならび],_次の語彙).