/****************************************************************************/

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.