Registrando Notas

Parte da seção Lógica e Fluxo do Journey de R da Coddy. Lição 23 de 64.

Desafio

Fácil

Adicione o comando GRADE a gradebook(). Mantenha todos os comandos das etapas anteriores funcionando exatamente como antes.

GRADE <name> <score>: se o aluno não estiver armazenado, responda no student <name>. Caso contrário, acrescente a pontuação às notas do aluno e responda recorded <score> for <name>.

As pontuações são números como 90 ou 87.5; escreva-as na resposta da forma como R imprime o número.

O código fornecido passa cada linha de entrada para gradebook() como um comando e imprime cada resposta retornada em sua própria linha. Um nome é uma palavra em minúsculas, e a entrada contém apenas os comandos descritos até agora.

Experimente você mesmo

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
}

# Código de entrada/saída fornecido: mantenha-o como está
input <- suppressWarnings(readLines(file("stdin")))
cat(gradebook(input), sep = "\n")