• [^] # Re: Pas bien intéressant...

    Posté par . En réponse au message exercices donnés au codinggame n°2. Évalué à 2.

    Tu as raison, mais mon code a passé les 5 tests proposés sur le site, je n'ai pas cherché plus loin. Du coup, mon argument "c'est trop simple" tombe à l'eau, non? :-) Bon, ce n'est pas si compliqué que ça, il faut appliquer la recherche entre le début et le dernier minimum, et entre le premier maximum et la fin, et prendre la plus grande différence. 

    s <- scan("stdin")[-1]
lastmin <- min(s)-max(s[1:rev(which(s==min(s)))[1]])
firstmax <- min(s[which(s==max(s))[1]:length(s)])-max(s)
cat(min(lastmin, firstmax),"\n")