Поменять в списке местами наибольший и наименьший элементы - Prolog

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

Ввести с клавиатуры список целых чисел. Поменять в списке местами наибольший и наименьший члены. Я не могу понять, как сделать на проверку все числа, а вот на 3 числа примерно такое вышло у меня

Domains
List=integer*
Predicates  
 Do(list, list)
Goal
Readterm(list,L),do(L, L1).
 
Clauses
Do([H1,H2,H3| T],L1):- H1>H3,L1= [H1,H2,H3| T],!;
  L1=[H3,H2,H1|T].

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

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

Оцени полезность:

6 голосов , оценка 3.667 из 5

Похожие ответы