Problem Statement

Create a function that returns the maximum value in a provided set of values, where the number of values may not be known until run-time.

Let's start with the solution:

 ?- max_list([1, 2, 10, 3, 0, 7, 9, 5], M).
M = 10.

max_list(L, V) :-
	select(V, L, R), \+((member(X, R), X > V)).