From a73529969a6b98a0be142ee175cefef2999a29c9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Adri=C3=A1n=20Arroyo=20Calle?= Date: Sat, 5 Dec 2020 14:20:50 +0100 Subject: [PATCH] Add max_list & min_list to lists --- src/lib/lists.pl | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/src/lib/lists.pl b/src/lib/lists.pl index e3033495..6638f137 100644 --- a/src/lib/lists.pl +++ b/src/lib/lists.pl @@ -2,7 +2,7 @@ memberchk/2, reverse/2, length/2, maplist/2, maplist/3, maplist/4, maplist/5, maplist/6, maplist/7, maplist/8, maplist/9, same_length/2, nth0/3, - sum_list/2, transpose/2, list_to_set/2]). + sum_list/2, transpose/2, list_to_set/2, max_list/2, min_list/2]). :- use_module(library(error)). @@ -200,3 +200,14 @@ nth0_search(N, N, [E|_], E). nth0_search(N0, N, [_|Es], E) :- N1 is N0 + 1, nth0_search(N1, N, Es, E). + + +max_list([Max], Max). +max_list([N|Ns], Max) :- + max_list(Ns, Maxs),!, + Max is max(N, Maxs). + +min_list([Min], Min). +min_list([N|Ns], Min) :- + min_list(Ns, Mins),!, + Min is min(N, Mins). \ No newline at end of file -- 2.54.0