|
|
|
@ -26,5 +26,27 @@ |
|
|
|
|
|
|
|
#include "tr/math.h" |
|
|
|
|
|
|
|
extern inline long TR_euklidGcd(register long, register long); |
|
|
|
extern inline long TR_lcm(register long, register long); |
|
|
|
long |
|
|
|
TR_euklidGcd(register long val1, register long val2) |
|
|
|
{ |
|
|
|
register long mod; |
|
|
|
|
|
|
|
if(val2 > val1) SWAP_XOR(val1, val2); |
|
|
|
|
|
|
|
mod = val1 % val2; |
|
|
|
while (mod != 0) { |
|
|
|
val1 = val2; |
|
|
|
val2 = mod; |
|
|
|
mod = val1 % val2; |
|
|
|
} |
|
|
|
|
|
|
|
return val2; |
|
|
|
} |
|
|
|
|
|
|
|
long |
|
|
|
TR_lcm(register long val1, register long val2) |
|
|
|
{ |
|
|
|
return val1 * val2 / TR_euklidGcd(val1, val2); |
|
|
|
} |
|
|
|
|
|
|
|
// vim: set ts=4 sw=4: |