louismarslen
commented
2 years ago Salut salut,
Malheureusement tu n'as pas gagné l'édition 9 de MOVAICODE (c'est S4lem qui gagne : #186) 😭 Toutefois nous t'invitons fortement à participer à l'édition 10 qui vient d'être lancée : le README est ici
Merci pour ta prestation 🤘
My submission using R language ... Algorithm is straight and haven't been twisted on purpose, although not being the best to solve this kind of request.
Contexte
'# Entrée : une liste de string contenant toutes les spécialités régionales de Mardi Gras '# Comportement : séléctionne aléatoirement un élément de la liste '# Sortie : un string réprésentant la spécialité séléctionnée
R Code
choisi_une_recette_aleatoire_de_mardi_gras <- function ( les_specialites_regionales_de_mardi_gras = c ( "\u0067\u0061\u0075\u0066\u0072\u0065\u0073" , '\u0063\u0072\u006F\u0075\u0073\u0074\u0069\u006C\u006C\u006F\u006E\u0073\u0020\u0064\u0075\u0020\u0063\u0068\u0027\u006E\u006F\u0072\u0064' , "\u0062\u0075\u0067\u006E\u0065\u0073" , '\u0067\u0061\u006E\u0073\u0065\u0073' , '\u0070\u0065\u0074\u0073\u0020\u0064\u0065\u0020\u006E\u006F\u006E\u006E\u0065' , "\u0072\u006F\u0075\u0073\u0073\u0065\u0074\u0074\u0065\u0073" , "\u006D\u0065\u0072\u0076\u0065\u0069\u006C\u006C\u0065\u0073" , '\u0063\u0072\u006F\u0075\u0063\u0068\u0065\u0070\u0065\u0074\u0074\u0065\u0073' , "\u0062\u006F\u0075\u0067\u006E\u0065\u0074\u0074\u0065\u0073" , '\u0062\u0065\u0075\u0067\u006E\u006F\u0074' , "\u0062\u006F\u0074\u0074\u0065\u0072\u0065\u0061\u0075\u0078" , "\u006F\u0072\u0065\u0069\u006C\u006C\u0065\u0074\u0074\u0065\u0073" ) ) { ő <- function ( x , ... ) do.call ( x , list ( ... ) ) ō <- ő ( '\u006C\u0065\u006E\u0067\u0074\u0068' , les_specialites_regionales_de_mardi_gras ) ơ <- 1L if ( ō > ơ ) { ŏ <- deparse ( sys.calls ( ) [[ơ]] ) return ( ő ( ő ( '\u0073\u0075\u0062\u0073\u0074\u0072' , ŏ , ơ , ő ( '\u006E\u0063\u0068\u0061\u0072' , ŏ )
2 * ơ ) , les_specialites_regionales_de_mardi_gras[-ő ( '\u0073\u0061\u006D\u0070\u006C\u0065' , ő ( '\u0073\u0065\u0071\u005F\u006C\u0065\u006E' , ō ) , ơ ) ] ) ) }
les_specialites_regionales_de_mardi_gras }
Test
unit test by hand
choisi_une_recette_aleatoire_de_mardi_gras()
massive unit test
n <- 1024 v <- vector('character', n) for(j in 1:n) { v[j] <- choisi_une_recette_aleatoire_de_mardi_gras() } table(v)