version 1.1.1.1, 2000/09/09 14:12:54 |
version 1.1.1.2, 2000/12/01 05:45:11 |
|
|
/* mpz/lcm.c: Calculate the least common multiple of two integers. |
/* mpz/lcm.c: Calculate the least common multiple of two integers. |
|
|
Copyright (C) 1996 Free Software Foundation, Inc. |
Copyright (C) 1996, 2000 Free Software Foundation, Inc. |
|
|
This file is part of the GNU MP Library. |
This file is part of the GNU MP Library. |
|
|
Line 37 mpz_lcm (r, u, v) |
|
Line 37 mpz_lcm (r, u, v) |
|
{ |
{ |
mpz_t g; |
mpz_t g; |
mp_size_t usize, vsize, size; |
mp_size_t usize, vsize, size; |
|
TMP_DECL (marker); |
|
|
|
TMP_MARK (marker); |
|
|
usize = ABS (SIZ (u)); |
usize = ABS (SIZ (u)); |
vsize = ABS (SIZ (v)); |
vsize = ABS (SIZ (v)); |
|
|
Line 53 mpz_lcm (r, u, v) |
|
Line 56 mpz_lcm (r, u, v) |
|
mpz_gcd (g, u, v); |
mpz_gcd (g, u, v); |
mpz_divexact (g, u, g); |
mpz_divexact (g, u, g); |
mpz_mul (r, g, v); |
mpz_mul (r, g, v); |
|
|
|
TMP_FREE (marker); |
} |
} |