# Test vectors for MP functions
#
-# $Id: mp,v 1.4 2000/06/17 12:11:08 mdw Exp $
+# $Id: mp,v 1.5 2000/06/22 19:01:14 mdw Exp $
add {
5 4 9; 5 -4 1; -5 4 -1; -5 -4 -9;
9 4 2 1; -9 4 -3 3; 9 -4 -3 -3; -9 -4 2 -1;
}
+odd {
+ 1 0 1;
+ 2 1 1;
+ 4 2 1;
+ 12 2 3;
+ 0x10000000000000 52 1;
+ 0x10000000400000 22 0x40000001;
+}
+
+sqrt {
+ 0 0;
+ 1 1;
+ 4 2;
+ 9 3;
+ 16 4;
+ 99 9;
+100 10;
+101 10;
+120 10;
+121 11;
+
+10106623487257186586 3179091613;
+14565040310136678240 3816417208;
+}
+
gcd {
# --- Simple tests ---
15 27 0;
2132498039840981 98729378979237498798347932749951 1;
}
+
+modsqrt {
+ 4 5 3;
+ 9775592058107450692 13391974640168007623 3264570455655810730;
+ 8155671698868891620 10189552848261357803 2073812183305821596;
+ 3248339460720824413 8976233780911635437 1220523478429582717;
+ 3447751741648956439 10155704720805654949 2812971608818169892;
+ 1453601744816463433 3095659104519735473 1260511572497628526;
+ 3366261317119810224 3756232416311497601 610261287187759737;
+ 3869491397135339653 5762828162167967567 2974328005712882420;
+ 660864223630638896 1729533840094059799 1058197842375219723;
+}