このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1362913813/103
#  
#  無理だろうね 
#  バカバカしいはOKでバカはNGみたいなのは正規表現では無理
#  

バカバカしいはOKでバカはNG(_文字列,'NG') :-
        sub_atom(_文字列,S,2,_,バカ),
        \+(sub_atom(_文字列,S,6,_,バカバカしい)),!.
バカバカしいはOKでバカはNG(_文字列,'OK').