Prolog-如何进行循环排列

Question

我是Prolog的新手，我想了解如何制作表现如下的谓词：

?- circle([1,2,3],X).
X = [1,2,3];
X = [2,3,1];
X = [3,1,2];
false.  

Answer 1

您可以两次使用append/3：

circle(L, C):-
  append(Head, [First|Tail], L),
  append([First|Tail], Head, C).