Repaso - Clasificación

Parte de la sección Lógica y flujo del Journey de R de Coddy. Lección 41 de 64.

Desafío

Intermedio

Completa leaderboard(names, points). Cada entrada registra los puntos que un jugador obtuvo en una ronda, y un jugador puede aparecer muchas veces. Devuelve una línea por jugador, 1. ana 15 (2 rounds), ordenadas por el total de puntos de mayor a menor. Los jugadores con el mismo total se ordenan alfabéticamente.

Después añade Best round: seguido del jugador y los puntos de la entrada individual más alta, como cy 12. Cuando varias entradas tienen los mismos puntos máximos, usa la primera de ellas.

El código proporcionado lee las rondas como pares name:points separados por comas e imprime cada línea devuelta.

Pruébalo tú mismo

leaderboard <- function(names, points) {
  # Escribe tu código aquí
  character(0)
}

# Código de entrada/salida suministrado: déjalo como está
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")