acw/cryptonum
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add support for modular division with negative divisors.

Browse Source
This commit is contained in:
Adam Wick
2018-12-30 17:14:52 -08:00
parent 130a87ef43
commit c55a1956d4
2 changed files with 3 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
test-generator/Tests.hs
View File

@@ -38,6 +38,7 @@ testDatabase = [
(SignedCmp, "sigcmp", "signed compare", sigcmpTest),
(SignedMul, "sigmul", "signed multiply", sigmulTest),
(SignedDiv, "sigdiv", "signed division", sigdivTest),
(SignedModInv,"smodinv", "signed modular inversion",smodinvTest),
(SignedShift, "sigshiftr", "signed shift right", sigshiftrTest),
(SignedShift, "sigshiftl", "signed shift left", sigshiftlTest),
(SignedSub, "sigsub", "signed subtraction", sigsubTest),
@@ -287,7 +288,7 @@ moddivTest :: Test
moddivTest size memoryIn =
let attempt memory0 =
let (a, memory1) = genSign (generateNum memory0 "a" size)
(b, memory2) = generateNum memory1 "b" size
(b, memory2) = genSign (generateNum memory1 "b" size)
(m, memory3) = generateNum memory2 "m" size
maybe_res = divmod a b m
in case maybe_res of