所属判定

CoddyのRジャーニー「ロジックとフロー」セクションの一部。レッスン 14/64。

x %in% set は x のすべての要素をチェックし、要素ごとに1つの論理値を返します。all() はすべてのチェックが TRUE かどうかを確認し、any() は少なくとも1つがそうであるかどうかを確認します。

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) は、順序と重複を無視して、2つのベクトルが同じ値を保持しているかどうかを確認します。

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を返してください。それ以外の場合は、requiredの順序で不足している材料を, で結合し、先頭にmissing: を付けて返してください。

提供されたコードは、必要な材料とパントリーの内容をカンマ区切りの行として読み取り、返された値を出力します。

自分で試してみよう

check_recipe <- function(required, pantry) {
  # ここにコードを書いてください
  ""
}

# 提供された入出力コード：そのままにしておいてください
input <- suppressWarnings(readLines(file("stdin")))
cat(check_recipe(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")