回顾：成绩分类器

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

挑战

中等

完成 grade_report(names, scores)。使用 ifelse() 为每位学生评分：90 分及以上为 A，75 分及以上为 B，50 分及以上为 C，低于 50 分为 F。每位学生返回一行，格式为 ada: 93 (A) Excellent，其中评语根据成绩通过 switch() 生成：A 对应 Excellent，B 对应 Good，C 对应 Pass，F 对应 Retake。

然后添加 Top: ，后面跟上最高分学生的姓名，按输入顺序排列，并用 , 连接。

提供的代码会读取两行以逗号分隔的姓名和分数，并打印返回的每一行。

亲手试试

grade_report <- function(names, scores) {
  # 在这里编写你的代码
  character(0)
}

# 已提供的输入和输出代码：保持原样
input <- suppressWarnings(readLines(file("stdin")))
cat(grade_report(strsplit(input[1], ",")[[1]], as.numeric(strsplit(input[2], ",")[[1]])), sep = "\n")