r - 1 的最小倍数 :20 - How can I make it quicker?

Question

我试图找到可以被 1:20 整除的最小数字。
我创建了一个函数，这就是我所拥有的:

smallestN<- function(a,b) {
  i<- 1
  repeat {
     if (all(i%%a:b == 0)) {
      break
    } else {
      i<-i+1
    }
  }
  return(i)
}

它适用于小间隔很好，但对于 1:20 需要很长时间。
如何改进我的代码以使其更快？

Answer 1

我认为你在追求 Least Common Multiple .有几种方法可以计算此值，但首先您可以查看 numbers包裹

library(numbers)

mLCM(1:20)
# [1] 232792560

使用 C/C++ 会有更快的实现，但对于 1:20这很快。