--- pl:prolog:pllib:max [2019/06/27 15:50]
+++ pl:prolog:pllib:max [2019/06/27 15:50] (aktualna)
@@ Linia 1: / Linia 1: @@
+====== Max ======
+{{tag>math}}
+===== Description =====
+Finding the maximum of a list of integers.
+**Source**:  The Art of Prolog
+===== Download =====
+Program source code: {{max.pl}}
+===== Listing =====
+<code prolog>
+/*
+   maxlist(Xs,N) :- N is the maximum of the list of integers Xs.
+*/
+     maxlist([X|Xs],M) :- maxlist(Xs,X,M).
+     maxlist([X|Xs],Y,M) :- maximum(X,Y,Y1), maxlist(Xs,Y1,M).
+     maxlist([],M,M).
+	maximum(X,Y,Y) :- X =< Y.
+	maximum(X,Y,X) :- X > Y.
+%  Program 8.9    Finding the maximum of a list of integers
+</code>
+===== Comments =====

pl/prolog/pllib/max.txt · ostatnio zmienione: 2019/06/27 15:50 (edycja zewnętrzna)

AIwiki

Menu