gpt4 book ai didi

r - 可被前几个自然数整除的最小数(使用 R foreach 包)

转载 作者:行者123 更新时间:2023-12-02 08:38:01 24 4
gpt4 key购买 nike

<分区>

我正在尝试使用 R(iteratorsforeach)解决以下(欧拉计划)问题,

What is the smallest positive number that is divisible by all of the numbers from one to fifteen?

虽然我认为我的代码应该完成这项工作,但它似乎没有:

library(foreach)
library(iterators)

# function to check sequence of natural numbers for
# divisibility by a given list of factors
fnDivision = function(maxNum, vFactors) {
foreach(i = icount(factorial(15))) %do% {
if(!i %% 100 ) cat(sprintf("Done with the first %i natural numbers.\n", i))
if(all(! i %% vFactors)) {
return(i)
}
}
}

# test the function
vFactors = c(8, 9, 10, 11, 12, 13, 14, 15)
fnDivision(15, vFactors)

请注意,我已将测试自然数序列除法的因子数从 1-15 的所有自然数减少到上述数。

以防万一,A003418 给出了正确答案, 为 360360, 而这

all(! 360360 %% vFactors)

评估为 TRUE

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com