如何不使用mod，循环或预定义函数查找向量中的所有偶数？

Question

我正在尝试学习R，但遇到一个问题，要求提供一个程序，该程序无需使用循环，%%或任何预定义的R函数即可计算向量中的偶数个数。我只能使用apply（），length（）和sum（）。我一直在尝试使用if语句，但是似乎没有任何效果。任何帮助将不胜感激。

Answer 1

您可以先比较dividing by 2，然后再比较multiplying by 2。

v <- 1:20

sum(v==as.integer(v/2)*2)
#[1] 10

#Using length
length(v[v==as.integer(v/2)*2])
#[1] 10