prolog - プロローグを使用して指定された要素の横にある要素を見つける

Question

与えられたクエリは

beside(Next,Beside,[a,b,c,d]).

Next=a, Beside=b;

Next=b, Beside=c;

Next=c, Beside=d;

要素 x、y が互いに隣り合っている場合、ルールは true になります。

私は最初の答えしかできNext=a, Beside=bませんでしたが、残りはできませんでした。

では、どうすればすべての答えを提供することができますか?

Answer 1

追加は仕事をします：

beside(Next, Beside, L) :-
    append(_, [Next, Beside | _], L).