Сортировка выбором - Prolog

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

Встречал темы, где сортировка выбором осуществляется с применением предиката min. Там элемент добавляется в начало списка путем добавления головы к телу. У меня задача иная. Сортировка выбором но используя maх, и

добавление элемента в конец списка

. По частям есть, но как слепить все это воедино?

max([H|T],MT):-max(T,MT),MT>=H,!.
max([H|_],H).

del(_,[],[]).
del(X,[X|L],L):-!.
del(X,[Y|L],[Y|L1]):-del(X,L,L1).

last(E,[],[E]).
last(X,[H|T],[H|T1]):- last(X,T,T1).

Решение задачи: «Сортировка выбором»

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

ugle_sort([], []).
ugle_sort(L1, L2) :-
  max(L1, M),
  del(M, L1, R1),
  ugle_sort(R1, R2),
  last(M, R2, L2).

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

Первый элемент кода - это утверждение о пустых списках: ugle_sort([], [])
Второй элемент кода - основная часть сортировки: ugle_sort(L1, L2) :- max(L1, M), del(M, L1, R1), ugle_sort(R1, R2), last(M, R2, L2).
Здесь используется функция max для нахождения максимального элемента в списке L1.
Затем используется функция del для удаления этого максимального элемента из списка L1, создавая новый список R1.
Далее, рекурсивно вызывается функция ugle_sort для списка R1 и нового списка R2.
Наконец, используется функция last для добавления последнего элемента обратно в список L2. Таким образом, этот код реализует алгоритм сортировки выбором на языке Prolog.