Medie degli studenti

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

Sfida

Facile

Aggiungi il comando AVG. Mantieni tutti i comandi dei passaggi precedenti funzionanti esattamente come prima.

AVG <name>: rispondi no student <name> per uno studente sconosciuto, <name>: no grades per uno studente senza voti e, altrimenti, <name>: seguito dalla media dei suoi voti con una cifra decimale, ad esempio ada: 88.8.

Una funzione di supporto che converte un vettore di punteggi in no grades o nella media formattata sarà utile anche nel passaggio successivo.

Il codice fornito passa ogni riga di input a gradebook() come un singolo comando e stampa ogni risposta restituita su una riga a sé. Un nome è una singola 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))
      }
    } 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
}

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