このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1268979408/332
#  ●環境 
#  vb.net 
#   
#  ●したいこと 
#  3文字以上の繰り返し表現を抽出 
#   
#  ●サンプル 
#  例文1)死にたい死にたい死にたい死にたい死にたい 
#  結果1)死にたい 
#   
#  ●したいこと 
#  2箇所以上出現する3文字以上の文字列
#   
#  例文2)筋肉バスターと阿修羅バスター 
#  結果2)バスター 
#   
#   
#  ってのを正規表現でやるのは無理でしょうか・・・ 
# 

'重複しない3文字以上の繰り返し表現を抽出'(_文字列,_重複しない3文字以上の繰り返し表現ならび) :-
        findsetof(_3文字以上の繰り返し表現,(
                    '3文字以上の繰り返し表現を抽出'(_文字列,_3文字以上の繰り返し表現),
                  _重複しない3文字以上の繰り返し表現ならび).

'3文字以上の繰り返し表現を抽出'(_文字列,_3文字以上の繰り返し表現) :-
        sub_atom(_文字列,_開始点,_長さ,_残り長さ,[_3文字以上の繰り返し表現|R]),
        _長さ >= 3,
        _開始点2 is _開始点 + _長さ,
        sub_atom(_文字列,_開始点2,_長さ,_残り長さ2,_3文字以上の繰り返し表現).