Первый элемент списка переместить в конце списка - Prolog

Формулировка задачи:

Привет. Надо первый элемент списка переместить в конце списка. Может у кого есть пример кода?

Решение задачи: «Первый элемент списка переместить в конце списка»

Листинг программы

fisrt_to_last([H|T], Ys) :-
    add_last(T, H, Ys).
    
add_last([], X, [X]).
add_last([H|T], X, [H|R]) :-
    add_last(T, X, R).

Объяснение кода листинга программы

В данном коде используется язык программирования Prolog. Задача заключается в перемещении первого элемента списка в конец списка. Код имеет два входа:

[H|T] - это входной список, где H - первый элемент списка, а T - оставшаяся часть списка.
Ys - это выходной список, который будет содержать измененный список. Вспомогательная функция add_last() используется для добавления элемента в конец списка. Она принимает три аргумента:
[H|T] - входной список.
X - элемент, который необходимо добавить в конец списка.
Ys - список, который будет содержать измененный список. Если входной список пустой, то есть [H|T] = [], то первый элемент X добавляется в начало выходного списка Ys. Если входной список не пустой, то есть [H|T] = [H|T], то первый элемент X добавляется в конец списка Ys, а оставшаяся часть списка T передается в функцию add_last() рекурсивно для обработки остальных элементов списка. Таким образом, код перемещает первый элемент списка в конец списка.