14.
problema sequíaOlímpica (j:JJOO) = result: [Pais] {

armar lista de todos los paises, ordenarla por sequiaPais, devolver todos los que tengan max() de la lista
asegura mismos( .. );

//Quiero que cada país tenga asociada su sequía y que la lista se ordene en base a eso.

aux sequiaPais(p:pais): Int 
= jornadaActual(j)-cuantosDiasGano(p);

aux cuantosDiasGano(p:pais): Int 
= |[ 1 | x <- [0..jornadaActual(j)-1], ganoEnElDia(x,p) ]|;

aux ganoEnElDia(dia,pais) : Bool 
= |[ 1 | c <- cronograma(j, dia), en(pais, paisesQueGanaronCompetencia(c)) ]|>0;

aux paisesQueGanaronCompetencia(c:Competencia) : [paises] 
= [ pais(a) | a  <- ranking(c) ];

aux listaPaisesConSequia(j: JJOO) : [(Pais, Int)]
	= [(p, sequiaPais(p)) | p <- listaPaises(j)];

aux ordenarPorSequia(ls: (Pais, Int)) : [(Pais, Int)]
	= Itero, busco el mayor, lo saco de la lista, busco el mayor de la sublista y voy armando la lista con eso.

}

*aux paisesQueGanaronCompetencia(c:Competencia) : [paises] = [ pais(ranking(c)[a]) | a  <- [0.. |ranking(c) |-1 ], a <= 2 ]