班级报告

本课属于 Coddy R 学习旅程的“逻辑与流程”单元。第 25 课，共 64 课。

挑战

简单

添加 REPORT 命令。确保之前步骤中的每条命令仍按原样正常工作。

REPORT：按字母顺序为每位已记录的学生回复一行，格式与 AVG 的回复相同（ada: 88.8 或 bo: no grades）。然后添加一行 Class average: ，后面跟着所有学生所有已记录成绩的平均值，保留一位小数；如果没有记录任何成绩，则显示 no grades。

一条 REPORT 命令会生成多条回复，每条回复单独打印在一行上。

提供的代码会将每一行输入作为一条命令传给 gradebook()，并将返回的每条回复单独打印在一行上。姓名是一个小写单词，输入只包含目前为止介绍过的命令。

亲手试试

average_text <- function(scores) {
  if (length(scores) == 0) "no grades" else sprintf("%.1f", mean(scores))
}

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))
      }
    } else if (parts[1] == "AVG") {
      if (!(name %in% names(grades))) {
        replies <- c(replies, paste("no student", name))
      } else {
        replies <- c(replies, paste0(name, ": ", average_text(grades[[name]])))
      }
    }
  }
  replies
}

# 提供的输入/输出代码：保持原样
input <- suppressWarnings(readLines(file("stdin")))
cat(gradebook(input), sep = "\n")