diff options
Diffstat (limited to 'arith.c')
-rw-r--r-- | arith.c | 18 |
1 files changed, 16 insertions, 2 deletions
@@ -1375,8 +1375,11 @@ val gcd(val anum, val bnum) if (!integerp(anum) || !integerp(bnum)) goto inval; - if (zerop(anum)) - return zero; + if (anum == zero) + return bnum; + + if (bnum == zero) + return anum; if (fixnump(anum)) anum = bignum(c_num(anum)); @@ -1398,6 +1401,17 @@ bad: anum, bnum, nao); } +val lcm(val anum, val bnum) +{ + if (anum == zero || bnum == zero) { + return zero; + } else { + val prod = mul(anum, bnum); + val gcdv = gcd(anum, bnum); + return abso(trunc(prod, gcdv)); + } +} + val floorf(val num) { if (integerp(num)) |