このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/968
#  ●正規表現の使用環境 
#  Perl 
#   
#  ●検索か置換か? 
#  置換 
#   
#  ●説明 
#  重複する文字列と区切り文字を削除したい 
#   
#  ●対象データ 
#  aaa;bbb;ccc;bbb;あああ;aaa;あああ;いいい 
#   
#  ●希望する結果 
#  aaabbbcccあああいいい 
#   
#  よろしくお願いします 
# 
# 

重複する文字列と区切り文字を削除したい(_文字列,_重複する文字列と区切り文字を削除した文字列) :-
        split(_文字列,[' ',',','/',':',';'],_区切られた要素ならび),
        出現順序を崩さず重複を取り除く(_区切られた要素ならび,[],_重複を取り除いた区切られた要素ならび),
        concat_atom(_重複を取り除いた区切られた要素ならび,_重複する文字列と区切り文字を削除した文字列).

出現順序を崩さず重複を取り除く([],L,L) :- !.
出現順序を崩さず重複を取り除く([A|R1],L1,L) :-
        append(_,[A|_],L1),
        出現順序を崩さず重複を取り除く(R1,L1,L),!.
出現順序を崩さず重複を取り除く([A|R1],L1,L) :-
        append(L1,[A],L2),
        出現順序を崩さず重複を取り除く(R1,L2,L),!.