Least common multiple and greatest common divisor

frac_lcm(..., max = 1e+07)

frac_gcd(...)

Arguments

...

Integer vectors or vectors that can be coerced to integer.

max

If the least common multiple is greater than max, max is returned instead.

Value

An integer.

Examples

frac_lcm(1, 2, 3, 4, 5, 6)
#> [1] 60
x <- 1:6
frac_lcm(x)
#> [1] 60
frac_lcm(x, 7)
#> [1] 420

frac_gcd(12, 42, 60)
#> [1] 6
y <- c(12, 42, 60)
frac_gcd(y)
#> [1] 6
frac_gcd(y, 39)
#> [1] 3