Franck88
Platin Status
- Registriert
- 20. Februar 2014
- Beiträge
- 6.044
Du lügst. Warum machst du so
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature may not be available in some browsers.
Du lügst. Warum machst du so
rm(list = ls())
Liste <- list()
#Für jeden Vektor der Liste gilt:
#Erster Name ist Name des Users, ggf. folgende Namen entsprechen denen der Blacklist
#und Wichtel des Vorjahres
Liste[[1]] <- c("user1")
Liste[[2]] <- c("user2", "user4")
Liste[[3]] <- c("user3", "user1", "user2")
Liste[[4]] <- c("user4")
Liste[[5]] <- c("user5", "user4")
#Indikator ob Erfolgreich und Versuchszähler
fehler <- 1
count <- 1
while(fehler!=0){
#(Zurück)Setzen der Fehlerzahl auf 0.
fehler <- 0
#Zufallssample der Zahlen 1 bis [Zahl der Teilnehmer]
Lose <- sample(c(1:length(Liste)),length(Liste), replace=FALSE)
for(i in 1:length(Liste)){
#Prüfen ob Schenker in Blacklist von Beschenktem
for (j in 1:length(Liste[[i]])){
if (Liste[[i]][j]==Liste[[Lose[i]]][1]){
fehler <- fehler+1
}
}
#Prüfen ob Beschenkter in Blacklist von Schenker
for (j in 1:length(Liste[[Lose[i]]])){
if (Liste[[i]][1]==Liste[[Lose[i]]][j]){
fehler <- fehler+1
}
}
}
#Info über Fehlerzahl
print(paste0("Das war Versuch ", count, " mit ", fehler, " Fehlern."))
count <- count+1
}
for(i in 1:length(Liste)){
print(paste0(Liste[[i]][1], " beschenkt ", Liste[[Lose[i]]][1]))
}
will ein löwentattoo
für was hättest du geliehen bin flexibelNein dafür nicht
dildoaufsatz für drohnefür was hättest du geliehen bin flexibel
We use essential cookies to make this site work, and optional cookies to enhance your experience.