Определить позицию максимального и минимального элемента списка за 1 рекурсию - Prolog

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

Ребят, вот такая вот задачка: определить позицию максимального и минимального эл-та списка за 1 рекурсию. делал вот так

                    Листинг программы
                
 
                        
                          
                    
max([H|T],Result,N):-
    max(T,Result,N1),
    Result>H,
    N is N1+1,!.
max([H|_],H,1).
 
min([H|T],Result,N):-
    min(T,Result,N1),
    Result<H,
    N is N1+1,!.
min([H|_],H,1).
 
search([H|T],MaxN,MinN):-
    max([H|T],_,MaxN),nl,
    min([H|T],_,MinN).

но грёбаный препод сказал, чтобы всё было в 1 рекурсии, а я не знаю как

Решение задачи: «Определить позицию максимального и минимального элемента списка за 1 рекурсию»

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

domains
int=integer
intl=int*
 
predicates
min_max(intl,int,int)
 
clauses
min_max([H],H,H).
min_max([H|T],H,Max) :- min_max(T,Min,Max), H < Min. 
min_max([H|T],Min,H) :- min_max(T,Min,Max), H > Max. 
min_max([H|T],Min,Max) :- min_max(T,Min,Max), H > Min , H < Max.

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

В этом коде определена рекурсивная функция min_max для списка целых чисел. Эта функция должна найти минимальное и максимальное значение в списке за одну рекурсию. Код работает следующим образом:

Базовый случай: если список пуст, то функция возвращает текущий элемент списка в качестве минимального и максимального значения.
Рекурсивный случай: функция разбивает список на текущий элемент и остаток списка. Затем она вызывает функцию min_max для остатка списка, чтобы найти минимальное и максимальное значение. Если текущий элемент меньше минимального значения, то он становится новым минимальным значением. Если текущий элемент больше максимального значения, то он становится новым максимальным значением. Таким образом, функция находит минимальное и максимальное значение в списке за одну рекурсию. Пример: ?- min_max([5,2,8,3],5,8). В этом примере список [5,2,8,3] и его минимальное и максимальное значение равны 2 и 8 соответственно.