Médias dos Alunos

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

Desafio

Fácil

Adicione o comando AVG. Mantenha todos os comandos das etapas anteriores funcionando exatamente como antes.

AVG <name>: responda no student <name> para um estudante desconhecido, <name>: no grades para um estudante sem notas e, caso contrário, <name>: seguido pela média de suas notas com uma casa decimal, como em ada: 88.8.

Uma função auxiliar que transforma um vetor de notas em no grades ou na média formatada será útil novamente na próxima etapa.

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

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