11 lines
262 B
Text
11 lines
262 B
Text
DEF FN_LCM(M%,N%)
|
|
IF M%=0 OR N%=0 THEN =0 ELSE =ABS(M%*N%)/FN_GCD_Iterative_Euclid(M%, N%)
|
|
|
|
DEF FN_GCD_Iterative_Euclid(A%, B%)
|
|
LOCAL C%
|
|
WHILE B%
|
|
C% = A%
|
|
A% = B%
|
|
B% = C% MOD B%
|
|
ENDWHILE
|
|
= ABS(A%)
|