اختبارات الانتماء

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

يتحقق x %in% set من كل عنصر في x ويُرجع قيمة منطقية واحدة لكل عنصر. ويسأل all() عمّا إذا كان كل تحقق هو TRUE، بينما يسأل any() عمّا إذا كان تحقق واحد على الأقل كذلك.

required <- c("flour", "eggs", "milk")
pantry <- c("eggs", "salt", "flour")
print(required %in% pantry)
print(all(required %in% pantry))
print(any(required %in% pantry))

المخرجات:

[1]  TRUE  TRUE FALSE
[1] FALSE
[1] TRUE

استخدم الفهرسة مع الاختبار المنفي لسرد العناصر المفقودة، بترتيب المتجه الأول:

required <- c("flour", "eggs", "milk", "sugar")
pantry <- c("eggs", "flour")
missing <- required[!(required %in% pantry)]
print(missing)

الناتج:

[1] "milk"  "sugar"

تتحقق setequal(a, b) مما إذا كان متجهان يحتويان على القيم نفسها، مع تجاهل الترتيب والتكرارات:

print(setequal(c("a", "b"), c("b", "a", "a")))
print(setequal(c("a", "b"), c("a", "c")))

المخرجات:

[1] TRUE
[1] FALSE

في متجه فارغ، تكون all() هي TRUE وتكون any() هي FALSE: عندما لا يكون هناك شيء مطلوب، لا يوجد شيء مفقود.

تحوّل which() متجهًا منطقيًا إلى مواضع القيم TRUE فيه، وهذا يخبرك بمكان التطابقات:

required <- c("flour", "eggs", "milk")
pantry <- c("eggs")
print(which(!(required %in% pantry)))

الناتج:

[1] 1 3

التحدي

سهل

أكمل check_recipe(required, pantry). أعد ready عندما يكون كل مكوّن مطلوب موجودًا في مخزن المؤن. وإلا فأعد missing: متبوعًا بالمكوّنات المفقودة، بترتيب required، مع ربطها باستخدام , .

يقرأ الكود المزوّد المكوّنات المطلوبة ومخزن المؤن على هيئة أسطر مفصولة بفواصل، ثم يطبع القيمة المُعادة.

جرّب بنفسك

check_recipe <- function(required, pantry) {
  # اكتب الكود الخاص بك هنا
  ""
}

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