Определение алфавитного порядка списка visual prolog 5.2

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

Приветствую. Требуется определить расположен ли список в алфавитном порядке. Нагуглил примеры кода, где сортирует в алфавитном порядке, однако совсем не въезжаю в тот код, как он работает и как его сделать под мою задачу. Буду рад самому простому алгоритму, где не важна скорость работы, и где будет меньше всего кода и простое для понимания, и, по возможности, коротким описанием как она работает, ибо с прологом на Вы и с низким поклоном. Заранее благодарю

Решение задачи: «Определение алфавитного порядка списка visual prolog 5.2»

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

sorted([_]).
sorted([X, Y|T]) :- 
    X < Y,
    sorted([Y|T]).

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

sorted([_]) - определение рекурсивной функции для сортировки элементов списка
sorted([X, Y|T]) - определение рекурсивной функции для списка с двумя элементами
X < Y - сравнение первых двух элементов списка
sorted([Y|T]) - рекурсивный вызов функции для оставшихся элементов списка
Y|T - разделение списка на два элемента: последний элемент и хвост списка
[Y|T] - ссылка на хвост списка, начиная с последнего элемента
X - ссылка на первый элемент списка
T - ссылка на оставшиеся элементы списка, начиная с первого элемента
< - оператор сравнения для определения порядка элементов
sorted([Y|T]) - рекурсивный вызов функции для оставшихся элементов списка
Y - ссылка на второй элемент списка
T - ссылка на оставшиеся элементы списка, начиная со второго элемента
[Y|T] - ссылка на хвост списка, начиная со второго элемента
Y|T - разделение списка на два элемента: последний элемент и хвост списка
sorted([T]) - рекурсивный вызов функции для оставшихся элементов списка
T - ссылка на оставшиеся элементы списка, начиная с первого элемента
[T] - ссылка на хвост списка, начиная с первого элемента
T|T - разделение списка на два элемента: последний элемент и хвост списка
sorted([T]) - рекурсивный вызов функции для оставшихся элементов списка
T - ссылка на оставшиеся элементы списка, начиная с первого элемента