maxmin([H|T],Max,Min) :- once(maxmin(T,H,H,Max,Min)). maxmin([],Max,Min,Max,Min). maxmin([H|T],Max,Min,A,B) :- H < Min, maxmin(T,Max,H,A,B). maxmin([H|T],Max,Min,A,B) :- H > Max, maxmin(T,H,Min,A,B). maxmin([_|T],Max,Min,A,B) :- maxmin(T,Max,Min,A,B).
Comments
0 B
|👍
/👎
0 B
|👍
/👎