このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/799
#  ●正規表現の使用環境 
#  秀丸 
#   
#  ●検索か置換か? 
#  置換 
#   
#  ●説明 
#  文字列の中に同じ文字が2つ以上含まれる行を削除したい 
#   
#  ●対象データ 
#  aaaaaaaa 
#  abcabcab 
#  abcdefgh 
#  agbchddf 
#  cbfdaehg 
#  dbcahebg 
#  dffbdeha 
#  echfbgad 
#  fbadcaeh 
#  habcdefg 
#   
#  ●希望する結果 
#  abcdefgh 
#  cbfdaehg 
#  echfbgad 
#  habcdefg 
#   
#   
#   
#  見づらいかと思いますが 
#  どうかよろしくお願いします。 
# 
# 

文字列の中に同じ文字が2つ以上含まれる行を削除したい([],[]).
文字列の中に同じ文字が2つ以上含まれる行を削除したい([_|R1],R2) :-
        同じ文字が2つ以上含まれる行は削除する(_行),
        文字列の中に同じ文字が2つ以上含まれる行を削除したい(R1,R2).
文字列の中に同じ文字が2つ以上含まれる行を削除したい([A|R1],[A|R2]) :-
        文字列の中に同じ文字が2つ以上含まれる行を削除したい(R1,R2).

同じ文字が2つ以上含まれる行は削除する(_行) :-
        atom_chars(_行,_文字ならび),
        整列(_文字ならび,_整列された文字ならび),
        整列した要素に重複がある(_整列された文字ならび).

整列した要素に重複がある([A,A|_]) :- !.
整列した要素に重複がある([_|R]) :-
        整列した要素に重複がある(R).