このディレクトリの索引
#  
#  部分文字列が二回以上出現するかどうか調べる
#  

部分文字列の重複検査(_文字列) :-
        部分文字列が二回以上出現するか調べる(_文字列,_二回以上出現する部分文字列),!.

部分文字列が二回以上出現するか調べる(_文字列,_二回以上出現する部分文字列) :-
        sub_atom(_文字列,S,Len,E,_二回以上出現する部分文字列),
        \+(_二回以上出現する部分文字列 = ''),
        部分文字列が二回以上出現する(_文字列,S,Len,_二回以上出現する部分文字列).

部分文字列が二回以上出現する(_文字列,S,Len,_二回以上出現する部分文字列) :-
        S_2 is S + Len,
        sub_atom(_文字列,S_2,_,0,_残り文字列),
        sub_atom(_残り文字列,_,_,_,_二回以上出現する部分文字列),!.