Moyennes des élèves

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 24 sur 64.

Défi

Facile

Ajoutez la commande AVG. Veillez à ce que chaque commande des étapes précédentes continue de fonctionner exactement comme auparavant.

AVG <name> : répondez no student <name> pour un étudiant inconnu, <name>: no grades pour un étudiant sans notes, et sinon <name>: suivi de la moyenne de ses notes avec une décimale, par exemple ada: 88.8.

Une fonction auxiliaire qui transforme un vecteur de notes en no grades ou en moyenne formatée sera de nouveau utile à l’étape suivante.

Le code fourni transmet chaque ligne d’entrée à gradebook() comme une commande et affiche chaque réponse renvoyée sur sa propre ligne. Un nom est un mot en minuscules, et l’entrée contient uniquement les commandes décrites jusqu’à présent.

Essayez vous-même

gradebook <- function(commands) {
  grades <- list()
  replies <- c()
  for (cmd in commands) {
    parts <- strsplit(cmd, " ")[[1]]
    name <- parts[2]
    if (parts[1] == "ADD") {
      if (name %in% names(grades)) {
        replies <- c(replies, paste(name, "already exists"))
      } else {
        grades[[name]] <- numeric(0)
        replies <- c(replies, paste("added", name))
      }
    } else if (parts[1] == "GRADE") {
      if (!(name %in% names(grades))) {
        replies <- c(replies, paste("no student", name))
      } else {
        score <- as.numeric(parts[3])
        grades[[name]] <- c(grades[[name]], score)
        replies <- c(replies, paste("recorded", score, "for", name))
      }
    }
  }
  replies
}

# Code d'entrée/sortie fourni : le garder tel quel
input <- suppressWarnings(readLines(file("stdin")))
cat(gradebook(input), sep = "\n")