swap_max_and_min

max([H | T], R) :-
    max(T, H, R).

max([], R, R).
max([H | T], Temp, R) :-
    H >= Temp,
    !,
    max(T, H, R).
max([_ | T], Temp, R) :-
    max(T, Temp, R).


min([H | T], R) :-
    min(T, H, R).

min([], R, R).
min([H | T], Temp, R) :-
    H =< Temp,
    !,
    min(T, H, R).
min([_ | T], Temp, R) :-
    min(T, Temp, R).    

swap([], _, _, []).
swap([Max | T], Min, Max, [Min | NewT]) :-
    !,
    swap(T, Min, Max, NewT).
swap([Min | T], Min, Max, [Max | NewT]) :-
    !,
    swap(T, Min, Max, NewT).
swap([H | T], Min, Max, [H | NewT]) :-
    swap(T, Min, Max, NewT).

swap_max_and_min(L, R) :-
    max(L, Max),
    min(L, Min),
    swap(L, Min, Max, R).