vence(luis,diego).
vence(ana,luis).
vence(ana,diego).

/*
 * Se determina la clase de una persona
 *    luchador: gana y pierde
 *    ganador: siempre gana, es decir, gana y no pierde
 *    deportista: siempre pierde, es decir, pierde y no gana.
 */

clase(P,luchador):-
		vence(P,_),
		vence(_,P).
		
clase(P,ganador):-
		vence(P,_),
		not(vence(_,P)).
		
clase(P,deportista):-
		vence(_,P),
		not(vence(P,_)).
		
		
/*
 * Segunda versión: se utiliza el corte
 *
 */
		
clase_bis(P,luchador):-
		vence(P,_),
		vence(_,P),
		!.
		

clase_bis(P,ganador):-
		vence(P,_),
		!.
		
clase_bis(P,deportista):-
		vence(_,P),
		!.