إضافة المفاتيح وإزالتها

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

يؤدي الإسناد إلى اسم إلى تحديث قيمته عند وجود المفتاح، وإضافة مُدخل جديد عند عدم وجوده:

stock <- c(apples = 12, pears = 3)
stock["pears"] <- 5
stock["plums"] <- 8
print(stock)

الناتج:

apples  pears  plums 
    12      5      8

لتغيير قيمة استنادًا إلى قيمتها الحالية، اقرأ المفتاح نفسه واكتب فيه:

stock <- c(apples = 12, pears = 3)
stock["apples"] <- stock["apples"] - 2
print(stock[["apples"]])

الناتج:

[1] 10

يمكن أن يبدأ جدول البحث فارغًا باستخدام c() وينمو بإضافة مفتاح واحد في كل مرة:

ages <- c()
ages["Ada"] <- 36
ages["Linus"] <- 21
print(names(ages))

الناتج:

[1] "Ada"   "Linus"

أزِل عنصرًا من متجه مُسمّى بالاحتفاظ بكل اسم آخر:

stock <- c(apples = 12, pears = 3, plums = 8)
stock <- stock[names(stock) != "pears"]
print(names(stock))

الناتج:

[1] "apples" "plums"

بالنسبة إلى القائمة، يؤدي إسناد NULL إلى إزالة العنصر:

user <- list(name = "Ada", temp = TRUE)
user[["temp"]] <- NULL
print(names(user))

الناتج:

[1] "name"

التحدي

سهل

أكمل apply_delivery(stock, item, qty). أضف qty إلى مخزون item، أو أضف item بالكمية qty إذا لم يكن مخزونًا بعد. أعد المخزون المحدّث.

يقرأ الكود المرفق المخزون على هيئة أزواج name=quantity، ثم العنصر والكمية. ويطبع كل إدخال من المخزون المُعاد بالصيغة name: quantity، وفق ترتيب المخزون.

جرّب بنفسك

apply_delivery <- function(stock, item, qty) {
  # اكتب شيفرتك هنا
  stock
}

# شيفرة الإدخال/الإخراج المقدّمة: اتركها كما هي
input <- suppressWarnings(readLines(file("stdin")))
stock <- c()
for (pair in strsplit(input[1], ",")[[1]]) {
  kv <- strsplit(pair, "=")[[1]]
  stock[kv[1]] <- as.numeric(kv[2])
}
stock <- apply_delivery(stock, input[2], as.numeric(input[3]))
for (name in names(stock)) {
  cat(name, ": ", stock[[name]], "\n", sep = "")
}