rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correct modulus bug (#2118, #2119)

Browse Source
This commit is contained in:
Mark
2023-10-24 14:20:26 -06:00
parent 773d3f81fd
commit 63cbeb9a3c
1 changed files with 3 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/machine/arithmetic_ops.rs
View File

@@ -850,15 +850,9 @@ pub(crate) fn modulus(x: Number, y: Number, arena: &mut Arena) -> Result<Number,
}; };
fn ibig_rem_floor(n1: &Integer, n2: &Integer) -> Integer { fn ibig_rem_floor(n1: &Integer, n2: &Integer) -> Integer {
if n1 > &Integer::ZERO && n2 < &Integer::ZERO { let ring = ConstDivisor::new(n2.unsigned_abs());
((n1 - Integer::ONE) / n2) - Integer::ONE let n1 = n1.clone();
} else if n1 < &Integer::ZERO && n2 > &Integer::ZERO { IBig::from(ring.reduce(n1).residue())
((n1 + Integer::ONE) / n2) - Integer::ONE
} else {
let ring = ConstDivisor::new(n2.unsigned_abs());
let n1 = n1.clone();
IBig::from(ring.reduce(n1).residue())
}
} }
match (x, y) { match (x, y) {