/*
 * mayores-que-n.pl
 *
 * Defina un predicado PROLOG de tres argumentos: el primero es
 * una lista de numeros enteros positivos, el segundo es un numero
 * entero positivo N y el tercero es una lista ListaMayores, 
 * compuesta por los numeros mayores que N de la lista.
 *
 */

/*
 * mayoresQueN(Lista, Umbral, Mayores).
 */

mayoresQueN([], _Umbral, []).

mayoresQueN([X|Xs], Umbral, [X|Ys]) :-
	X > Umbral,
	mayoresQueN(Xs, Umbral, Ys).

mayoresQueN([X|Xs], Umbral, Y) :-
	X =< Umbral,
	mayoresQueN(Xs, Y).

/* EOF mayores-que-n.pl */