Перестановка элементов и нахождение минимума - Prolog

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

Надо еще сделать две такие задачки: 1. Создайте предикат, осуществляющий перестановку двух элементов списка с заданными номерами. 2. Реализуйте предикат min_list без использования предиката min.

min_list([X],X). /* единственный элемент одноэлементного
                    списка является минимальным элементом
                    списка */
min_list([H|T],M):–
   min_list(T,M_T), /* M_T — минимальный элемент хвоста */
   min(H,M_T,M). /* M — минимум из M_T и первого элемента
                    исходного списка */

Решение задачи: «Перестановка элементов и нахождение минимума»

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

                            min_list([X],X).
min_list([H|T],H):–min_list(T,M_T), H<M_T,!.
min_list([_|T],M_T):-min_list(T,M_T).
                        