Registrare i voti

Fa parte della sezione Logica e flusso del percorso R di Coddy. Lezione 23 di 64.

Sfida

Facile

Aggiungi il comando GRADE a gradebook(). Mantieni ogni comando dei passaggi precedenti funzionante esattamente come prima.

GRADE <name> <score>: se lo studente non è registrato, rispondi no student <name>. Altrimenti aggiungi il punteggio ai voti dello studente e rispondi recorded <score> for <name>.

I punteggi sono numeri come 90 o 87.5; scrivili nella risposta come R stampa il numero.

Il codice fornito passa ogni riga di input a gradebook() come un unico comando e stampa ogni risposta restituita su una riga separata. Un nome è una parola in minuscolo e l'input contiene solo i comandi descritti finora.

Provalo tu

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

# Codice di input/output fornito: lascialo così com'è
input <- suppressWarnings(readLines(file("stdin")))
cat(gradebook(input), sep = "\n")