my_sort([], Sorted2, Sorted2).

my_sort(Unsorted, Sorted, Sorted2) :-
    get_max(Unsorted, Max, LessList),
    append(Sorted, [Max], NewSorted),
    my_sort(LessList, NewSorted, Sorted2).

my_sort(Unsorted, Sorted) :-
    my_sort(Unsorted, [], ReverseSorted),
    reverse(ReverseSorted, Sorted),
    write(Sorted).

get_max([], Max, LessList, Max, LessList).

get_max(Unsorted, X, Unsorted2, Max, LessList) :-
    select(Y, Unsorted, Rest),
    (X > Y,
    append(Unsorted2, [Y], NewList),
    get_max(Rest, X, NewList, Max, LessList);
    append(Unsorted2, [X], NewList),
    get_max(Rest, Y, NewList, Max, LessList)).

get_max(Unsorted, Max, LessList) :-
    select(X, Unsorted, Unsorted2),
    get_max(Unsorted2, X, [], Max, LessList).