このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1362913813/689
#  ●Java1.5 
#  ●検索 
#  ●真ん中のAを否定 かつ Aが含まれる にマッチするか 
#   
#  ●対象データ 3桁限定 
#  ABC    true 
#  BAC    false 
#  CBA    true 
#  DEF    false 
#   
#  .*1.* & ^.[^9].*  
#  こんな正規を使ったのですができませんでした。 
#  宜しくお願いします。 
# 
# 

'真ん中のAを否定 かつ Aが含まれる にマッチするか(対象データ 3桁限定)'(_対象データ,_A) :-
        '真ん中のAを否定(対象データ 3桁限定)'(_対象データ,_A),
        'Aが含まれる(対象データ 3桁限定)'(_対象データ,_A).


'真ん中のAを否定(対象データ 3桁限定)'(_対象データ,_A) :-
        \+(sub_atom(_対象データ,1,1,1,_A)).

'Aが含まれる(対象データ 3桁限定)'(_対象データ,_A) :-
        sub_atom(_対象データ,_,1,_,_A).