The smallest value of a variable?

[Ju]

I'd like to know the way I can get the smallest value of a variable I have...

Thank you very much.

 

[pimi]

min([N], N) :- !.
min([N|NR], V) :- min(NR, TMP), V is ((N + TMP) - abs(N - TMP)) / 2.

?- min([3], V).
V = 3 ;

?- min([3, 9, 2, 6], V).
V = 2 ;