Powtórka – tabela wyników

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

Wyzwanie

Średni

Uzupełnij leaderboard(names, points). Każdy wpis zapisuje liczbę punktów zdobytych przez jednego gracza w jednej rundzie, a ten sam gracz może pojawić się wiele razy. Zwróć po jednym wierszu na gracza, 1. ana 15 (2 rounds), uszeregowanych malejąco według łącznej liczby punktów. Gracze z taką samą łączną liczbą punktów są szeregowani alfabetycznie.

Następnie dodaj Best round: , po którym podaj gracza i liczbę punktów z pojedynczego wpisu z najwyższym wynikiem, na przykład cy 12. Jeśli kilka wpisów ma najwyższą liczbę punktów, użyj pierwszego z nich.

Dostarczony kod odczytuje rundy jako pary name:points rozdzielone przecinkami i wyświetla każdy zwrócony wiersz.

Spróbuj swoich sił

leaderboard <- function(names, points) {
  # Wpisz tutaj swój kod
  character(0)
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
input <- suppressWarnings(readLines(file("stdin")))
pairs <- strsplit(strsplit(input[1], ",")[[1]], ":")
names <- sapply(pairs, function(p) p[1])
values <- as.numeric(sapply(pairs, function(p) p[2]))
cat(leaderboard(names, values), sep = "\n")