R Examples

R Program - Find LCM of Two Numbers



LCM stands for Least Common Multiple. The LCM of two numbers is the smallest number that can be divided by both numbers.

For example - LCM of 20 and 25 is 100 and LCM of 30 and 40 is 120.

Mathematically, LCM of two numbers (a and b) can be expressed as below:

a x b = LCM(a, b) x GCD(a, b)

LCM(a, b) = (a x b) / GCD(a, b)

Method 1: Using For Loop to find GCD and LCM of two numbers

In the example below, for loop is used to iterate the variable i from 1 to the smaller number. If both numbers are divisible by i, then it modifies the GCD and finally gives the GCD of two numbers. GCD of two numbers is then used to calculate LCM of two numbers.

x <- 20
y <- 25

if (x > y) {
  temp <- x
  x <- y
  y <- temp
}

for (i in c(1:x)) {
  if (x%%i == 0 && y%%i == 0) {
    gcd <- i
  }  
}

lcm <- (x*y)/gcd

sprintf("LCM of %d and %d is: %d", x, y, lcm)

The above code will give the following output:

[1] "LCM of 20 and 25 is: 100"

Method 2: Using While Loop to find GCD and LCM of two numbers

In the example below, larger number is replaced by a number which is calculated by subtracting the smaller number from the larger number. The process is continued until the two numbers become equal which will be GCD of two numbers. GCD of two numbers is then used to calculate LCM of two numbers.

p <- x <- 20
q <- y <- 25

while (x != y) {
  if (x > y) {
    x <- x - y
  } else {
    y <- y - x  
  }
}

lcm <- (p*q)/x

sprintf("LCM of %d and %d is: %d", p, q, lcm)

The above code will give the following output:

[1] "LCM of 20 and 25 is: 100"

Method 3: Using the recursive function to find GCD and LCM of two numbers

In the example below, recursive function is used which uses Euclidean algorithm to find GCD of two numbers which is further used to calculate LCM of two numbers.

gcd <- function(x, y) {
  if (y == 0) {
    return (x)
  }
  return (gcd(y, x%%y))  
}

x <- 30
y <- 40

lcm <- (x*y)/gcd(x,y)

sprintf("LCM of %d and %d is: %d", x, y, lcm)

The above code will give the following output:

[1] "LCM of 30 and 40 is: 120"