Deadline 6.12.: Das EHRENVOLLE und WEIHNACHTLICHE MZEE-Wichteln 2015

Status
Not open for further replies.
"algorithmus" is da und müsste so passen oder puhh

Code:
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]))
}
 
Status
Not open for further replies.
Back
Top Bottom