A few small changes to try to make generation faster.

2020-03-02 15:20:33 -08:00
parent 9c76d7e0b4
commit f93aa7ffc3
4 changed files with 25 additions and 18 deletions
--- a/generation/src/ModOps.hs
+++ b/generation/src/ModOps.hs
@@ -118,7 +118,7 @@ generateModulusTest size g = go g
                                ("m", showX m),
                                ("r", showX (x `mod` m)),
                                ("t", showX ((x * y) `mod` m)),
-                                ("s", showX ((x * x) `mod` m)),
+                                ("s", showX (powModInteger x 2 m)),
                                ("e", showX (powModInteger x y m))
                               ]
    in if y < 2