序言：將列表中的最後一個元素移到前面

Question

是否有一些內置謂詞或簡單的方法將列表中的最後一個元素移動到前面？我想出的唯一方法是存儲最後一個元素的謂詞，將其從原始列表中刪除，然後執行append(Last Elem, Original List, New List)，這有點麻煩。

Answer 1

我不知道是否有任何內置的謂詞，不過這可以通過非常簡單的代碼來實現：

moveLast([], []). 
moveLast(L, [H|T]) :- append(T, [H], L).