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

Question

在 R 中，我有两个辅助函数

gcf(x,y) 求两个数的最大公因数

和

lcm(x,y) 用于查找两个数字的租用公倍数。

例如，

> gcd(85,75)
[1] 5
> lcm(20,50)
[1] 100

现在，我需要创建一个函数，该函数将整数向量作为返回元素的最小公倍数的参数。

例如，

lcm_vector(c(20,50,75)) = 300

我知道这需要计算

LCM(20, 50, 75) = LCM(LCM(20, 50), 75)。

但是我如何处理向量的元素？我需要循环吗？

Answer 1

您可以使用向量中的每个新值Reduce继续运行lcm

lcm_vector <- function(x) Reduce(lcm, x)
lcm_vector(c(20,50,75))
# [1] 300

如果你有一个像这样的向量x<-c(a,b,c,d,e)并且你有函数f。打电话Reduce(f, x)就像打电话f(f(f(f(a, b), c), d), e)