Tekrar - Liderlik Tablosu

Coddy'nin R Journey'sinin Mantık ve Akış bölümünün bir parçası. Ders 41 / 64.

Görev

Orta

leaderboard(names, points) işlevini tamamla. Her giriş, bir oyuncunun bir turda kazandığı puanları kaydeder ve bir oyuncu birçok kez görünebilir. Oyuncu başına bir satır döndür: 1. ana 15 (2 rounds); toplam puana göre yüksekten düşüğe sırala. Toplam puanları aynı olan oyuncular alfabetik olarak sıralanır.

Ardından Best round: ifadesini, en yüksek puana sahip tek girişteki oyuncu ve puan takip edecek şekilde ekle; örneğin cy 12. Birden fazla giriş en yüksek puana sahipse, bunlardan ilkini kullan.

Sağlanan kod, turları virgüllerle ayrılmış name:points çiftleri olarak okur ve döndürülen her satırı yazdırır.

Kendin dene

leaderboard <- function(names, points) {
  # Kodunuzu buraya yazın
  character(0)
}

# Sağlanan girdi/çıktı kodu: olduğu gibi bırakın
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")