minimum(L,M).
minimum([1],1).
minimum([2,3],2).
minimum([5,4],4).
minimum([7,6,8],6).

minimum([X],X).
minimum([Y,Z],Y) :- Y<=Z.
minimum([Y,Z],Z) :- Y>Z.

