このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1362913813/528
#  ●Regular Expressionの使用環境  
#  サクラエディタ 
#   
#  ●検索か置換か?  
#  置換  
#   
#  ●説明  
#  1行の中に同じ単語が2連続しているのを1つだけにしたいです。 
#   
#  ●対象データ  
#  appleapple 
#  orangeorange 
#  grapegrape 
#   
#  ●希望する結果  
#  apple 
#  orange 
#  grape 
#   
#  よろしくお願いします。 
# 
# 


'1行の中に同じ単語が2連続しているのを1つだけにしたいです。'(_文字列,_短縮した文字列) :-
        findmax([Len,S],(
                    sub_atom(_文字列,_,Len,_,S1,_,S3,_,L2,_),
                    append(L,L,L2),
                    atom_chars(S4,L),
                    atomic_list_concat([S1,S4,S3],S)),
                [_,_短縮した文字列]).