我正在尝试解决R 中的欧拉问题 #1:
求 1000 以下所有 3 或 5 的倍数之和。
以下代码运行良好,并在终端中生成准确的结果:
limit <- 1000
NumSet <- function(n){((1:floor((limit - 1)/n)) * n)}
result <- sum(NumSet(3)) + sum(NumSet(5))- sum(NumSet(15))
print(result)
当我在 RStudio 中尝试时,出现以下错误:
Error: evaluation nested too deeply: infinite recursion / options(expressions=)?
这有什么问题?
1 R: 3.0.0
2 RStudio: 0.97.336
3 OS: ubuntu-12.10,64-bit