このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1362913813/413
#  ああもう訳が分からない 
#  
#  あいうえおあいうえおあいうえお 
#  
#  という「あいうえお」の繰り返し文字があったら 
#  1番最後の「うえ」だけ一致させる方法と 
#  2番目の「うえ」だけ一致させる方法が解らない 
#  それぞれどういう方法があるんでしょうか? 
#  すみません教えて下さい 

'1番最後の「うえ」だけ一致させる方法'(_文字列,_前文字列,うえ,_後文字列) :-
        sub_atom(_文字列,S,2,R,うえ),
        前文字列と後文字列を得る(_文字列,S,R,_前文字列,_後文字列),
        \+(sub_atom(_後文字列,_,2,_,うえ)).

'2番目の「うえ」だけ一致させる方法'(_文字列,_前文字列,うえ,_後文字列) :-
        '2番目の「うえ」だけ一致させる'(_文字列,S_2,R_2),
        前文字列と後文字列を得る(_文字列,S_2,R_2,_前文字列,_後文字列).

'2番目の「うえ」だけ一致させる'(_文字列,S_2,R_2) :-
        sub_atom(_文字列,S_1,2,_,うえ),
        sub_atom(_文字列,S_2,2,R_2,うえ),
        S_2 > S_1,!.

前文字列と後文字列を得る(_文字列,S,R,_前文字列,_後文字列) :-
        sub_atom(_文字列,0,S,_,_前文字列),
        sub_atom(_文字列,_,R,0,_後文字列).