このディレクトリの索引
#  
#  リストLにおいて二つの項XとYがこの順番に隣接しているとき真となる関係nextto(X,Y,L)を定義しなさい。
#  

nextto(X,Y,[X,Y|_]).
nextto(X,Y,[_|R]) :-
        nextto(X,Y,R).

%%%%

nextto(X,Y,L) :-
        append(_,[X,Y|_],L).