このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1272006124/127
#  <問題> 
#  x とy 両方ともリストL の要素の場合だけYes を返すプログラムを書きなさい。 
#   

'x とy 両方ともリストL の要素の場合だけYes を返す'(_x,_y,L) :-
        append(_,[_x|_],L),
        append(_,[_y|_],L).