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]))
}