r语言 - 实现运算符

Question

>我需要实现运算符 %in%，如果左侧的点在右侧的列表中，则给出 TRUE，而在相反的情况下给出 FALSE。问题是我无法使用循环和任何额外的包。

创建列表

ell <- list( 2, c( 2, 5), list( c( 2, 8)), "test")

列表中的元素

• 2
• c(2, 5)
• list(c(2, 8))
• "test"

---

测试元素

2 %in% ell
# TRUE
5 %in% ell
# FALSE
list(c(2, 8)) %in% ell
# TRUE
list(list(2, 8)) %in% ell
# FALSE
"test" %in% ell
# TRUE

Answer 1

%in%是一个

运算符，用于标识第一个参数是否是第二个参数的子集。所以你期望的能力是%in%无法实现的。这是另一种解决方案，可以通过sapply()获得您想要的东西。例如：

any(sapply(ell, identical, list(c( 2, 8))))
# [1] TRUE
any(sapply(ell, identical, list(list( 2, 8))))
# [1] FALSE

---

您可以自行定义自定义运算符来实现上述方法。我把它命名为%IN%：

`%IN%` <- function(a, b){
  any(sapply(b, identical, a))
}
2 %IN% ell
# [1] TRUE
5 %IN% ell
# [1] FALSE
list(c(2, 8)) %IN% ell
# [1] TRUE
list(list(2, 8)) %IN% ell
# [1] FALSE
"test" %IN% ell
# [1] TRUE