substr() ile Alt Dizeler

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

substr(x, start, stop), x'in start konumundan stop konumuna kadar olan karakterlerini, her iki konum da dahil olmak üzere döndürür. Konumlar, vektör indekslerinde olduğu gibi 1'den başlar.

word <- "programming"
print(substr(word, 1, 7))
print(substr(word, 4, 6))

Çıktı:

[1] "program"
[1] "gra"

Sondan karakter almak için konumları nchar() ile hesaplayın:

code <- "INV-2024-0042"
n <- nchar(code)
print(substr(code, n - 3, n))

Çıktı:

[1] "0042"

Sonun ötesindeki bir stop, son karaktere kadar kesilir ve start değerinin stop değerinden büyük olması boş bir dize verir:

print(substr("cat", 2, 10))
print(substr("cat", 3, 1))

Çıktı:

[1] "at"
[1] ""

substr() bir karakter vektörünün her öğesi üzerinde aynı anda çalışır:

days <- c("Monday", "Tuesday", "Wednesday")
print(substr(days, 1, 3))

Çıktı:

[1] "Mon" "Tue" "Wed"

substr() işlevine atama, karakterlerin yerinde üzerine yazılmasını sağlar. Dize uzunluğunu korur:

id <- "user-0000"
substr(id, 6, 9) <- "1234"
print(id)

Çıktı:

[1] "user-1234"

Görev

Kolay

short_code(city) fonksiyonunu, city değerinin ilk üç harfini büyük harflerle döndürecek şekilde tamamlayın. london için LON döndürür.

Sağlanan kod, şehri girdiden okur ve döndürülen değeri kendi satırına yazdırır.

Kendin dene

short_code <- function(city) {
  # Kodunuzu buraya yazın
  ""
}

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