Raport klasowy

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 25 z 64.

Wyzwanie

Łatwy

Dodaj polecenie REPORT. Wszystkie polecenia z poprzednich kroków powinny nadal działać dokładnie tak jak wcześniej.

REPORT: odpowiedz jednym wierszem dla każdego zapisanego ucznia, w kolejności alfabetycznej, w formacie takim jak odpowiedź na AVG (ada: 88.8 lub bo: no grades). Następnie dodaj wiersz Class average: , po którym podaj średnią wszystkich zapisanych ocen wszystkich uczniów z jednym miejscem po przecinku albo no grades, jeśli nie zapisano żadnych ocen.

Jedno polecenie REPORT generuje kilka odpowiedzi, a każda z nich jest wypisywana w osobnym wierszu.

Dostarczony kod przekazuje każdy wiersz wejściowy do gradebook() jako jedno polecenie i wypisuje każdą zwróconą odpowiedź w osobnym wierszu. Imię to jedno słowo zapisane małymi literami, a dane wejściowe zawierają wyłącznie opisane dotąd polecenia.

Spróbuj swoich sił

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
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
input <- suppressWarnings(readLines(file("stdin")))
cat(gradebook(input), sep = "\n")