Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement