このディレクトリの索引

http://toro.2ch.net/test/read.cgi/tech/1362913813/21
#  
#  ●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 が含まれてない行を検索したい。'(Lines,Line) :-
        member(Line,Lines),
        'red または blue が含まれてない'(Line).

'red または blue が含まれてない'(Line) :-
        \+(sub_atom(Line,_,_,_,red)),
        \+(sub_atom(Line,_,_,_,blue)).