0

我正在尝试解决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
4

0 回答 0