/****************************************************************************/                        
                   Programa que permite encontrar el maximo
                  elemento de una lista de numeros

                      Inteligencia Artificial       			
	     Gonzalo Villarreal Farah  
Para Turbo Prolog 2.0 de la Borland
   
****************************************************************************/
trace
domains
   lista=l*
   l=integer
predicates
   mayor(l,lista)
clauses
   mayor(X,[X]):-!.
   mayor(Z,[X|Y]):-
                  mayor(Z1,Y),
                  Z1>=X,
                  Z=Z1;Z=X.