30 lines
723 B
R
30 lines
723 B
R
|
Compute LCM in R
|
||
|
|
# Program to find the L.C.M. of two input number
|
||
|
|
lcm <- function(x, y) {
|
||
|
|
# choose the greater number
|
||
|
|
if(x > y) {
|
||
|
|
greater = x
|
||
|
|
} else {
|
||
|
|
greater = y
|
||
|
|
}
|
||
|
|
|
||
|
|
while(TRUE) {
|
||
|
|
if((greater %% x == 0) && (greater %% y == 0)) {
|
||
|
|
lcm = greater
|
||
|
|
break
|
||
|
|
}
|
||
|
|
greater = greater + 1
|
||
|
|
}
|
||
|
|
return(lcm)
|
||
|
|
}
|
||
|
|
|
||
|
|
# take input from the user
|
||
|
|
num1 = as.integer(readline(prompt = "Enter first number: "))
|
||
|
|
num2 = as.integer(readline(prompt = "Enter second number: "))
|
||
|
|
|
||
|
|
print(paste("The L.C.M. of", num1,"and", num2,"is", lcm(num1, num2)))
|
||
|
|
Output
|
||
|
|
|
||
|
|
Enter first number: 24
|
||
|
|
Enter second number: 25
|
||
|
|
[1] "The L.C.M. of 24 and 25 is 600"
|