级别问题 1
3 或 5 的倍数 如果我们列出 10 以下的所有自然数，并且是 3 或 5 的倍数，我们得到 3、5、6 和 9。这些倍数的总和是23。
求 1000 下面的 3 或 5 的所有倍数之和。
R代码 multiplos <- function(numMax){ num <- seq_len(numMax-1) test <- apply(rbind(num %% 3, num %% 5), 2, min) return(sum(num[test == 0])) } multiplos(10) > 23 multiplos(1000) > 233168 multiplos <- function(numMax, mult){ num <- seq_len(numMax-1) vecMult <- lapply(mult , function(div) num %% div) matMult <- do.call(rbind, vecMult) test <- apply(matMult, 2, min) return(sum(num[test == 0])) } multiplos(10, c(3,5)) > 23 multiplos(1000, c(3,5)) > 233168 甚至斐波那契数列 斐波那契数列中的每一项新项都是通过将前两项相加而生成的。开始于 1和2，第一个10。条款如下： $$1,2,3,5,8,13, 21, 34, 55, 89, \dots$$ 当考虑斐波那契数列中值不超过四百万的项时，求偶数项的和。
