Recapitulação - Tabela de Classificação

Parte da seção Lógica e Fluxo do Journey de R da Coddy. Lição 41 de 64.

Desafio

Médio

Complete leaderboard(names, points). Cada entrada registra os pontos que um jogador marcou em uma rodada, e um jogador pode aparecer várias vezes. Retorne uma linha por jogador, 1. ana 15 (2 rounds), classificada pelo total de pontos, do maior para o menor. Jogadores com o mesmo total são classificados em ordem alfabética.

Em seguida, adicione Best round: seguido pelo jogador e pelos pontos da única entrada com a maior pontuação, como em cy 12. Quando várias entradas tiverem a mesma maior pontuação, use a primeira delas.

O código fornecido lê as rodadas como pares name:points separados por vírgulas e imprime cada linha retornada.

Experimente você mesmo

leaderboard <- function(names, points) {
  # Escreva seu código aqui
  character(0)
}

# Código de entrada/saída fornecido: mantenha-o 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")