-# $Id: gfreduce,v 1.4 2004/03/27 17:54:12 mdw Exp $
+# $Id$
#
# Test efficient polynomial reduction
reduce {
- 0x10000000
+ 0x10000000
0x4509823098098435
- 0x8098435;
+ 0x8098435;
0x100000000000000050002
0x4509823098098435
0x4509823098098435;
modexp {
0x20000000000000000000000000000000000000000000000000000000000001001
+ 0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ 0
+ 1;
+ 0x20000000000000000000000000000000000000000000000000000000000001001
0x02
0x1ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
1;
0x34235950984598345900983409845690805680985
0x0fffffffffffffffffffffffffffffffffffffffffff
1;
+
+ 0x800000000000000000000000000000000000000c9
+ 0x3f0eba16286a2d57ea0991168d4994637e8343e36
+ -1
+ 0x3c8c172e24598e90b9542e6b8f6571f54be572b50;
+ 0x800000000000000000000000000000000000000c9
+ 0x3c8c172e24598e90b9542e6b8f6571f54be572b50
+ 342345
+ 0x3521fe2666efe92ca4eb160a286e0fd9427b84a62;
+ 0x800000000000000000000000000000000000000c9
+ 0x3f0eba16286a2d57ea0991168d4994637e8343e36
+ -342345
+ 0x3521fe2666efe92ca4eb160a286e0fd9427b84a62;
}
sqrt {