멤버십 테스트

Coddy R 여정의 논리와 흐름 섹션에 포함된 레슨. 64개 중 14번째.

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를 반환하세요. 그렇지 않으면 누락된 재료를 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")