#  このディレクトリの索引
#  ●Regular Expressionの使用環境 
#  Ruby 1.9 
#  
#  ●検索か置換か? 
#  検索 
#  
#  ●説明 
#  red または blue が含まれてない行を検索したい。 
#  
#  ●対象データ 
#  yellow red blue green orange 
#  red green yellow orange 
#  black yellow orange white 
#  green yellow blue orange 
#  
#  ●希望する結果 
#  black yellow orange white 
#  

'red または blue が含まれてない行を検索したい。'([_文字列|R],_文字列) :-
        \+(sub_atom(_文字列,_,_,_,red)),
        \+(sub_atom(_文字列,_,_,_,blue)).
'red または blue が含まれてない行を検索したい。'([_|R],_文字列) :-
        'red または blue が含まれてない行を検索したい。'(R,_文字列).