Oceanborn a écrit :
Code :
- HFRinspace <- c( "20boy","adhoc","ash ray cure","astro-pepito","babast","benjikos","bobbyfrasier","chriom","clemlegrand","constellation06","corsaire024","dame de piques","darth21","demdal","dr hardlove","e-te","ginie","heartquake","humanrage","iryngael","janov","jimbofarrar","krazouk","kuartin","le proto","leewan","mammago","mesharou","microminus","mr-blonde","nicolashfr","nitrofoliz","oceanborn","payoknay","plam","ploufys","rdlmphotos","romn","scetoaux","sidorku","spacex","stefes007","suprememaxpayne","tanote","thecreator","timoonn","toto408","turtlecrf","xatrix","yog sothoth","zemrhyde","zeratul" )
- Elonlovesus <- data.frame(table(replicate(100000, sample(HFRinspace, 1, replace = TRUE))))
- Elonlovesus <- Elonlovesus[rev(order(Elonlovesus$Freq)),]
- if (identical(Elonlovesus[1,2], Elonlovesus[2,2]) == TRUE) {
- print("We have a tie, Elon must be watching us :o" )
- } else {
- print(Elonlovesus[rev(order(Elonlovesus$Freq)),][1,])
- }
|
(J'aurais du enlever Xat de la liste des participants )
|