使用辅助函数为R中的向量创建最小公倍数函数

# 辅助函数：计算两个数的最大公约数
gcd <- function(a, b) {
  while (b != 0) {
    temp <- b
    b <- a %% b
    a <- temp
  }
  return(a)
}

# 创建最小公倍数函数
lcm <- function(vec) {
  result <- vec[1]
  for (i in 2:length(vec)) {
    result <- (result * vec[i]) / gcd(result, vec[i])
  }
  return(result)
}

# 示例用法
vector <- c(2, 3, 4, 5)
lcm_value <- lcm(vector)
print(lcm_value)