복습 - 리더보드

Coddy R 여정의 논리와 흐름 섹션에 포함된 레슨. 64개 중 41번째.

챌린지

중급

leaderboard(names, points)를 완성하세요. 각 항목에는 한 플레이어가 한 라운드에서 획득한 점수가 기록되며, 한 플레이어가 여러 번 나타날 수 있습니다. 플레이어마다 한 줄씩 반환하고, 1. ana 15 (2 rounds)와 같은 형식으로 총점을 기준으로 높은 순서부터 정렬하세요. 총점이 같은 플레이어는 알파벳순으로 정렬하세요.

그런 다음 Best round: 뒤에 단일 항목 중 가장 높은 점수를 얻은 플레이어와 점수를 추가하세요. 예를 들어 cy 12와 같습니다. 가장 높은 점수가 여러 항목에 있다면 그중 첫 번째 항목을 사용하세요.

제공된 코드는 라운드를 쉼표로 구분된 name:points 쌍으로 읽고, 반환된 각 줄을 출력합니다.

직접 해보기

leaderboard <- function(names, points) {
  # 여기에 코드를 작성하세요
  character(0)
}

# 제공된 입력/출력 코드: 그대로 유지하세요
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")