このディレクトリの索引

http://hibari.2ch.net/test/read.cgi/php/1168450843/30
#  ABCと続く場合を除くABという文字列を指定したい場合は
#  どのように書いたらよいでしょうか・・・ 

'ABCと続く場合を除くABという文字列'(_文字列,_前文字列,'AB',_後文字列) :-
        sub_atom(_文字列,S,2,R,'AB'),
        \+(sub_atom(_文字列,S+2,1,_,'C')),
        sub_atom(_文字列,0,S,_,_前文字列),
        sub_atom(_文字列,S+2,R,0,_後文字列).