使用序言

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).