Je m'auto-réponds encore une fois (rien que pour le plaisir de voir les geekscottes), il y a beaucoup plus simple (mais en O(n2))! . Je ne sais pas si la lisibilité et la concision étaient privilégiées sur l'efficacité.
s <- scan("stdin")[-1]
cat(min(sapply(1:length(s), FUN=function(x) { min(s[x:length(s)]-s[x])})))
[^] # Re: Pas bien intéressant...
Posté par arnaudus . En réponse au message exercices donnés au codinggame n°2. Évalué à 2. Dernière modification le 29 octobre 2012 à 22:42.
Je m'auto-réponds encore une fois (rien que pour le plaisir de voir les geekscottes), il y a beaucoup plus simple (mais en O(n2))! . Je ne sais pas si la lisibilité et la concision étaient privilégiées sur l'efficacité.