Ripasso - Classifica

Fa parte della sezione Logica e flusso del percorso R di Coddy. Lezione 41 di 64.

Sfida

Medio

Completa leaderboard(names, points). Ogni voce registra i punti ottenuti da un giocatore in un turno, e un giocatore può comparire molte volte. Restituisci una riga per giocatore, 1. ana 15 (2 rounds), ordinati in base ai punti totali, dal più alto al più basso. I giocatori con lo stesso totale sono ordinati alfabeticamente.

Poi aggiungi Best round: seguito dal giocatore e dai punti della singola voce più alta, come cy 12. Se più voci condividono il punteggio più alto, usa la prima.

Il codice fornito legge i turni come coppie name:points separate da virgole e stampa ogni riga restituita.

Provalo tu

leaderboard <- function(names, points) {
  # Write your code here
  character(0)
}

# Supplied input/output code: keep it as it is
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")