このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1272006124/113
#  リストのある要素を検索して、そのn要素後の値を取り出しなさい。 
# 

リストのある要素を検索して、そのn要素後の値を取り出す(_対象リスト,_検索要素,_n要素後,_値) :-
    append(_,[_検索要素|R],_対象リスト),
    list_nth(_n要素後,R,_値).