使用prolog查找指定元素旁边的元素

Question

给出的查询是

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

Next=a, Beside=b;

Next=b, Beside=c;

Next=c, Beside=d;

如果元素x，y彼此相邻，则规则应该为真。

我只能给出第一个答案，Next=a, Beside=b但不能给出其余答案。

那么如何才能提供所有答案呢？

Answer 1

追加工作：

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