このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1272006124/131
#  <問題> 
#  リストA の要素が全てリストB の要素の場合だけYes を返すプログラムを書きなさい。 
# 

'リストA の要素が全てリストB の要素の場合だけYes を返す'(A,B) :-
        A = [C|R],
        append(_,[C|_],B),
        'リストA の要素が全てリストB の要素の場合だけYes を返す'(R,B).
'リストA の要素が全てリストB の要素の場合だけYes を返す'([],B) :- !.