Пролог: переместить последний элемент в список вперед

Question

Есть ли встроенный предикат или простой способ переместить последний элемент в списке вперед? Единственный способ, которым я придумал, - это предикат, который хранит последний элемент, удаляет его из исходного списка, а затем делает append(Last Elem, Original List, New List), что немного громоздко.

Answer 1

Я не знаю, есть ли встроенный предикат, но это может быть достигнуть с очень простым кодом:

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