このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/220
#  ●正規表現の使用環境 
#  grepとかegrepとか 
#   
#  ●検索か置換か? 
#  検索 
#   
#  ●説明 
#  a,nの2文字のみが含まれる行を検索したい 
#   
#  ●対象データ 
#  aaa 
#  ann 
#  nana 
#  anana 
#  sin 
#  anans 
#   
#  ●希望する結果 
#  上4つのみ出力 
#  下二つは引っかからない 
# 
# 

'a,nの2文字のみが含まれる行を検索したい'(_行ならび,_行) :-
        append(_,[_行|_],_行ならび),
        findsetof(_文字,sub_atom(_行,_,1,_,_文字),[a,n]).