R Program - Find LCM of Two Numbers without GCD

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.

The approach is to start with the largest of the two numbers and keep incrementing the larger number by itself till it becomes divisible by the smaller number.

Example: find LCM of two numbers without GCD

In the example below, to calculate the LCM of two numbers, largest of the two numbers is increased by itself till it becomes divisible by the smaller number.

lcm <- function(x, y) {
  large <- max(x, y)
  small <- min(x, y)
  i <- large
  while(TRUE) {
    if(i %% small == 0) {
      return (i)
    }
    i <- i + large      
  }
}

x <- 30
y <- 40
sprintf("LCM of %d and %d is: %d", x, y, lcm(x,y))

The above code will give the following output:

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