السلاسل الفرعية باستخدام substr()

جزء من قسم المنطق وتدفق التنفيذ في رحلة R على Coddy. الدرس 1 من 64.

substr(x, start, stop) تُرجع أحرف x من الموضع start إلى الموضع stop، وكلا الموضعين مشمولان. تبدأ المواضع من 1، مثل فهارس المتجهات.

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

الناتج:

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

لاستخراج الأحرف من النهاية، احسب المواضع باستخدام nchar():

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

الناتج:

[1] "0042"

يتم اقتطاع قيمة stop التي تتجاوز النهاية إلى الحرف الأخير، وتُرجع قيمة start الأكبر من stop سلسلة نصية فارغة:

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

الناتج:

[1] "at"
[1] ""

تعمل substr() على كل عنصر من عناصر متجه الأحرف في آنٍ واحد:

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

الناتج:

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

يؤدي الإسناد إلى substr() إلى الكتابة فوق الأحرف في مواضعها. ويحافظ النص على طوله:

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

الناتج:

[1] "user-1234"

التحدي

سهل

أكمل short_code(city) بحيث تُرجع الأحرف الثلاثة الأولى من city بأحرف كبيرة. بالنسبة إلى london، تُرجع LON.

يقرأ الكود المزوَّد اسم المدينة من الإدخال ويطبع القيمة المُرجعة في سطر مستقل.

جرّب بنفسك

short_code <- function(city) {
  # اكتب الكود الخاص بك هنا
  ""
}

# كود الإدخال/الإخراج المُزوَّد: أبقِه كما هو
input <- suppressWarnings(readLines(file("stdin")))
cat(short_code(input[1]), sep = "\n")