Лучший ученик

Часть раздела Логика и потоки выполнения путешествия по R на Coddy. Урок 26 из 64.

Задание

Средне

Добавьте команду TOP. Все команды из предыдущих шагов должны продолжать работать точно так же, как и раньше.

TOP: ответьте Top: , затем укажите имя студента с наивысшим средним значением и это среднее значение с одним десятичным знаком в скобках, например Top: ada (92.0). Студенты без оценок пропускаются. Если средние значения совпадают, выберите студента, чьё имя идёт первым в алфавитном порядке. Если ни у одного студента нет оценок, ответьте Top: none.

Предоставленный код передаёт каждую входную строку в 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]])))
      }
    } else if (parts[1] == "REPORT") {
      for (student in sort(names(grades))) {
        replies <- c(replies, paste0(student, ": ", average_text(grades[[student]])))
      }
      replies <- c(replies, paste("Class average:", average_text(unlist(grades))))
    }
  }
  replies
}

# Предоставленный код ввода/вывода: оставьте его как есть
input <- suppressWarnings(readLines(file("stdin")))
cat(gradebook(input), sep = "\n")