Vektörleri Sıralama

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

sort(x), x değerlerini artan sırada döndürür ve decreasing = TRUE bunu tersine çevirir. Özgün vektör değiştirilmez:

scores <- c(72, 95, 60, 88)
print(sort(scores))
print(sort(scores, decreasing = TRUE))
print(scores)

Çıktı:

[1] 60 72 88 95
[1] 95 88 72 60
[1] 72 95 60 88

Metin alfabetik olarak sıralanır. Kesin sıra, sistemin dil ayarlarına bağlıdır: birçok sunucuda olduğu gibi Coddy’de de büyük harfler küçük harflerden önce gelir; bu nedenle "Zed", "ada" ifadesinden önce sıralanır. Büyük/küçük harf önemli olmamalıysa tolower() ile dönüştürün:

names <- c("cy", "Zed", "ada")
print(sort(names))
print(sort(tolower(names)))

Çıktı:

[1] "Zed" "ada" "cy" 
[1] "ada" "cy"  "zed"

rev(x) mevcut sırayı sıralama yapmadan tersine çevirir ve head(x, n) ilk n öğeyi tutar; bunlar sort() ile birlikte bir üst liste oluşturur:

scores <- c(72, 95, 60, 88)
print(rev(scores))
print(head(sort(scores, decreasing = TRUE), 2))

Çıktı:

[1] 88 60 95 72
[1] 95 88

Sıralanmış adlandırılmış bir vektör, her adı kendi değeriyle birlikte tutar; bu nedenle adlar değerlerin sırasına göre çıkar:

stock <- c(tea = 12, jam = 3, oil = 7)
low_first <- sort(stock)
print(names(low_first))
print(low_first[["jam"]])

Çıktı:

[1] "jam" "oil" "tea"
[1] 3

Görev

Kolay

top_scores(scores, n) işlevini tamamla. En yüksek n puanı yüksekten düşüğe doğru, , ile birleştirilmiş şekilde döndür. n puandan daha az varsa hepsini döndür.

Sağlanan kod, puanları virgülle ayrılmış bir satır ve n olarak okur ve döndürülen değeri yazdırır.

Kendin dene

top_scores <- function(scores, n) {
  # Kodunuzu buraya yazın
  ""
}

# Sağlanan girdi/çıktı kodu: olduğu gibi bırakın
input <- suppressWarnings(readLines(file("stdin")))
cat(top_scores(as.numeric(strsplit(input[1], ",")[[1]]), as.numeric(input[2])), sep = "\n")