demos/perl/test.pl

122 ok (mpz(0) == 0);
123 ok (mpz('0') == 0);
124 ok (mpz(substr('101',1,1)) == 0);
125 ok (mpz(0.0) == 0);
126 ok (mpz(mpz(0)) == 0);
127 ok (mpz(mpq(0)) == 0);
128 ok (mpz(mpf(0)) == 0);
131   ok (mpz($t) == 0);
135   ok (mpz($t) == 0);
138 { tie my $t, 'Mytie', substr('101',1,1); ok (mpz($t) == 0); }
139 { tie my $t, 'Mytie', 0.0; ok (mpz($t) == 0); }
140 { tie my $t, 'Mytie', mpz(0); ok (mpz($t) == 0); }
141 { tie my $t, 'Mytie', mpq(0); ok (mpz($t) == 0); }
142 { tie my $t, 'Mytie', mpf(0); ok (mpz($t) == 0); }
144 ok (mpz(-123) == -123);
145 ok (mpz('-123') == -123);
146 ok (mpz(substr('1-1231',1,4)) == -123);
147 ok (mpz(-123.0) == -123);
148 ok (mpz(mpz(-123)) == -123);
149 ok (mpz(mpq(-123)) == -123);
150 ok (mpz(mpf(-123)) == -123);
152 { tie my $t, 'Mytie', -123; ok (mpz($t) == -123); }
153 { tie my $t, 'Mytie', '-123'; ok (mpz($t) == -123); }
154 { tie my $t, 'Mytie', substr('1-1231',1,4); ok (mpz($t) == -123); }
155 { tie my $t, 'Mytie', -123.0; ok (mpz($t) == -123); }
156 { tie my $t, 'Mytie', mpz(-123); ok (mpz($t) == -123); }
157 { tie my $t, 'Mytie', mpq(-123); ok (mpz($t) == -123); }
158 { tie my $t, 'Mytie', mpf(-123); ok (mpz($t) == -123); }
160 ok (mpz($ivnv_2p128) == $str_2p128);
161 { tie my $t, 'Mytie', $ivnv_2p128; ok (mpz($t) == $str_2p128); }
163 ok (mpz($uv_max) > 0);
164 ok (mpz($uv_max) == mpz($uv_max_str));
165 { tie my $t, 'Mytie', $uv_max; ok (mpz($t) > 0); }
166 { tie my $t, 'Mytie', $uv_max; ok (mpz($t) == mpz($uv_max_str)); }
170   ok (mpz($s) == '999999999999999999999999999999');
172   ok (mpz($t) == '999999999999999999999999999999');
178 ok (abs(mpz(0)) == 0);
179 ok (abs(mpz(123)) == 123);
180 ok (abs(mpz(-123)) == 123);
182 { my $x = mpz(-123); $x = abs($x); ok ($x == 123); }
183 { my $x = mpz(0);    $x = abs($x); ok ($x == 0);   }
184 { my $x = mpz(123);  $x = abs($x); ok ($x == 123); }
186 { tie my $t, 'Mytie', mpz(0); ok (abs($t) == 0); }
187 { tie my $t, 'Mytie', mpz(123); ok (abs($t) == 123); }
188 { tie my $t, 'Mytie', mpz(-123); ok (abs($t) == 123); }
193 ok (mpz(0) + 1 == 1);
194 ok (mpz(-1) + 1 == 0);
195 ok (1 + mpz(0) == 1);
196 ok (1 + mpz(-1) == 0);
201 { my $a = mpz(7); $a += 1; ok ($a == 8); }
202 { my $a = mpz(7); my $b = $a; $a += 1; ok ($a == 8); ok ($b == 7); }
207 ok ((mpz(3) & 1) == 1);
208 ok ((mpz(3) & 4) == 0);
210 { my $a = mpz(3); $a &= 1; ok ($a == 1); }
211 { my $a = mpz(3); $a &= 4; ok ($a == 0); }
216 if (mpz(0))   { ok (0); } else { ok (1); }
217 if (mpz(123)) { ok (1); } else { ok (0); }
222 ok (~ mpz(0) == -1);
223 ok (~ mpz(1) == -2);
224 ok (~ mpz(-2) == 1);
225 ok (~ mpz(0xFF) == -0x100);
226 ok (~ mpz(-0x100) == 0xFF);
231 { my $a = mpz(0); ok ($a-- == 0); ok ($a == -1); }
232 { my $a = mpz(0); ok (--$a == -1); }
234 { my $a = mpz(0); my $b = $a; $a--; ok ($a == -1); ok ($b == 0); }
239 ok (mpz(6) / 2 == 3);
240 ok (mpz(-6) / 2 == -3);
241 ok (mpz(6) / -2 == -3);
242 ok (mpz(-6) / -2 == 3);
247 { my $a = mpz(21); $a /= 3; ok ($a == 7); }
248 { my $a = mpz(21); my $b = $a; $a /= 3; ok ($a == 7); ok ($b == 21); }
253 { my $a = mpz(0);
255   $a = mpz(1);
262 { my $a = mpz(0); ok ($a++ == 0); ok ($a == 1); }
263 { my $a = mpz(0); ok (++$a == 1); }
265 { my $a = mpz(0); my $b = $a; $a++; ok ($a == 1); ok ($b == 0); }
270 ok ((mpz(3) | 1) == 3);
271 ok ((mpz(3) | 4) == 7);
273 { my $a = mpz(3); $a |= 1; ok ($a == 3); }
274 { my $a = mpz(3); $a |= 4; ok ($a == 7); }
276 ok ((mpz("0xAA") | mpz("0x55")) == mpz("0xFF"));
281 { my $a = mpz(7) << 1; ok ($a == 14); }
286 { my $a = mpz(7); $a <<= 1; ok ($a == 14); }
287 { my $a = mpz(7); my $b = $a; $a <<= 1; ok ($a == 14); ok ($b == 7); }
292 ok (mpz(2) * 3 == 6);
297 { my $a = mpz(7); $a *= 3;  ok ($a == 21); }
298 { my $a = mpz(7); my $b = $a; $a *= 3;  ok ($a == 21); ok ($b == 7); }
303 ok (- mpz(0) == 0);
304 ok (- mpz(123) == -123);
305 ok (- mpz(-123) == 123);
310 if (not mpz(0))   { ok (1); } else { ok (0); }
311 if (not mpz(123)) { ok (0); } else { ok (1); }
313 ok ((! mpz(0)) == 1);
314 ok ((! mpz(123)) == 0);
319 ok (mpz(0) ** 1 == 0);
320 ok (mpz(1) ** 1 == 1);
321 ok (mpz(2) ** 0 == 1);
322 ok (mpz(2) ** 1 == 2);
323 ok (mpz(2) ** 2 == 4);
324 ok (mpz(2) ** 3 == 8);
325 ok (mpz(2) ** 4 == 16);
327 ok (mpz(0) ** mpz(1) == 0);
328 ok (mpz(1) ** mpz(1) == 1);
329 ok (mpz(2) ** mpz(0) == 1);
330 ok (mpz(2) ** mpz(1) == 2);
331 ok (mpz(2) ** mpz(2) == 4);
332 ok (mpz(2) ** mpz(3) == 8);
333 ok (mpz(2) ** mpz(4) == 16);
338 { my $a = mpz(3); $a **= 4; ok ($a == 81); }
339 { my $a = mpz(3); my $b = $a; $a **= 4; ok ($a == 81); ok ($b == 3); }
344 ok (mpz(-8) % 3 == -2);
345 ok (mpz(-7) % 3 == -1);
346 ok (mpz(-6) % 3 == 0);
347 ok (mpz(6) % 3 == 0);
348 ok (mpz(7) % 3 == 1);
349 ok (mpz(8) % 3 == 2);
351 { my $a = mpz(24); $a %= 7; ok ($a == 3); }
356 { my $a = mpz(32) >> 1; ok ($a == 16); }
361 { my $a = mpz(32); $a >>= 1; ok ($a == 16); }
362 { my $a = mpz(32); my $b = $a; $a >>= 1; ok ($a == 16); ok ($b == 32); }
367 ok (mpz(0) < 1);
368 ok (mpz(0) > -1);
370 ok (mpz(0) != 1);
371 ok (mpz(0) != -1);
372 ok (mpz(1) != 0);
373 ok (mpz(1) != -1);
374 ok (mpz(-1) != 0);
375 ok (mpz(-1) != 1);
377 ok (mpz(0) < 1.0);
378 ok (mpz(0) < '1');
379 ok (mpz(0) < substr('-1',1,1));
380 ok (mpz(0) < mpz(1));
381 ok (mpz(0) < mpq(1));
382 ok (mpz(0) < mpf(1));
383 ok (mpz(0) < $uv_max);
388 ok (sqrt(mpz(0)) == 0);
389 ok (sqrt(mpz(1)) == 1);
390 ok (sqrt(mpz(4)) == 2);
391 ok (sqrt(mpz(81)) == 9);
396 { my $x = mpz(0);    ok("$x" eq "0"); }
397 { my $x = mpz(123);  ok("$x" eq "123"); }
398 { my $x = mpz(-123); ok("$x" eq "-123"); }
403 ok (mpz(0) - 1 == -1);
404 ok (mpz(1) - 1 == 0);
405 ok (1 - mpz(0) == 1);
406 ok (1 - mpz(1) == 0);
411 { my $a = mpz(7); $a -= 1; ok ($a == 6); }
412 { my $a = mpz(7); my $b = $a; $a -= 1; ok ($a == 6); ok ($b == 7); }
417 ok ((mpz(3) ^ 1) == 2);
418 ok ((mpz(3) ^ 4) == 7);
420 { my $a = mpz(3); $a ^= 1; ok ($a == 2); }
421 { my $a = mpz(3); $a ^= 4; ok ($a == 7); }
472 { my $a = mpz(3); clrbit ($a, 1); ok ($a == 1);
474 { my $a = mpz(3); clrbit ($a, 2); ok ($a == 3);
483 { my $a = mpz(3);
496 { tie my $a, 'Mytie', mpz(3);
513 { my $b = mpz(3);
531 { my $a = mpz(3); combit ($a, 1); ok ($a == 1);
533 { my $a = mpz(3); combit ($a, 2); ok ($a == 7);
542 { my $a = mpz(3);
555 { tie my $a, 'Mytie', mpz(3);
572 { my $b = mpz(3);
626 ok (! even_p(mpz(-3)));
627 ok (  even_p(mpz(-2)));
628 ok (! even_p(mpz(-1)));
629 ok (  even_p(mpz(0)));
630 ok (! even_p(mpz(1)));
631 ok (  even_p(mpz(2)));
632 ok (! even_p(mpz(3)));
780     ok (&$fun ($$i[0],      mpz($$i[1])) == $$i[2]);
781     ok (&$fun (mpz($$i[0]), $$i[1]) == $$i[2]);
782     ok (&$fun (mpz($$i[0]), mpz($$i[1])) == $$i[2]);
801 ok (lcm (mpz(2)**512,1) == mpz(2)**512);
802 ok (lcm (mpz(2)**512,-1) == mpz(2)**512);
803 ok (lcm (-mpz(2)**512,1) == mpz(2)**512);
804 ok (lcm (-mpz(2)**512,-1) == mpz(2)**512);
805 ok (lcm (mpz(2)**512,mpz(2)**512) == mpz(2)**512);
806 ok (lcm (mpz(2)**512,-mpz(2)**512) == mpz(2)**512);
807 ok (lcm (-mpz(2)**512,mpz(2)**512) == mpz(2)**512);
808 ok (lcm (-mpz(2)**512,-mpz(2)**512) == mpz(2)**512);
844 # ok (  perfect_power_p(mpz(-27)));
845 # ok (! perfect_power_p(mpz(-9)));
846 # ok (! perfect_power_p(mpz(-1)));
847 ok (  perfect_power_p(mpz(0)));
848 ok (  perfect_power_p(mpz(1)));
849 ok (! perfect_power_p(mpz(2)));
850 ok (! perfect_power_p(mpz(3)));
851 ok (  perfect_power_p(mpz(4)));
852 ok (  perfect_power_p(mpz(9)));
853 ok (  perfect_power_p(mpz(27)));
854 ok (  perfect_power_p(mpz(81)));
859 ok (! perfect_square_p(mpz(-9)));
860 ok (! perfect_square_p(mpz(-1)));
861 ok (  perfect_square_p(mpz(0)));
862 ok (  perfect_square_p(mpz(1)));
863 ok (! perfect_square_p(mpz(2)));
864 ok (! perfect_square_p(mpz(3)));
865 ok (  perfect_square_p(mpz(4)));
866 ok (  perfect_square_p(mpz(9)));
867 ok (! perfect_square_p(mpz(27)));
868 ok (  perfect_square_p(mpz(81)));
889 { my $z = mpz(123);
932 { my ($root, $rem) = rootrem (mpz(0), 1);
934 { my ($root, $rem) = rootrem (mpz(0), 2);
936 { my ($root, $rem) = rootrem (mpz(64), 2);
938 { my ($root, $rem) = rootrem (mpz(64), 3);
940 { my ($root, $rem) = rootrem (mpz(65), 3);
964 { my $a = mpz(3); setbit ($a, 1); ok ($a == 3); }
965 { my $a = mpz(3); setbit ($a, 2); ok ($a == 7); }
971 { my $a = mpz(0);
984 { tie my $a, 'Mytie', mpz(3);
1001 { my $b = mpz(2);
1027   my ($root, $rem) = sqrtrem(mpz(0));
1032   my ($root, $rem) = sqrtrem(mpz(1));
1037   my ($root, $rem) = sqrtrem(mpz(2));
1042   my ($root, $rem) = sqrtrem(mpz(9));
1047   my ($root, $rem) = sqrtrem(mpz(35));
1052   my ($root, $rem) = sqrtrem(mpz(0));
1108 ok (mpq(mpz(0)) == 0);
1116 { tie my $t, 'Mytie', mpz(0); ok (mpq($t) == 0); }
1124 ok (mpq(mpz(-123)) == -123);
1132 { tie my $t, 'Mytie', mpz(-123); ok (mpq($t) == -123); }
1331 ok (mpq(0) < mpz(1));
1396 ok (mpf(mpz(0)) == 0);
1404 { tie my $t, 'Mytie', mpz(0); ok (mpf($t) == 0); }
1412 ok (mpf(mpz(-123)) == -123);
1420 { tie my $t, 'Mytie', mpz(-123); ok (mpf($t) == -123); }
1629 ok (mpf(0) < mpz(1));
1681   ok (  mpf_eq (mpz("0x10000000000000001"), mpz("0x10000000000000002"), 1));
1682   ok (! mpf_eq (mpz("0x11"), mpz("0x12"), 128));
1790   my $z = mpz_urandomm($r, mpz(3)**100);
1836 ok (! mpz("-9999999999999999999999999999999999999999999")->fits_slong_p());
1837 ok (  mpz(-123)->fits_slong_p());
1838 ok (  mpz(0)->fits_slong_p());
1839 ok (  mpz(123)->fits_slong_p());
1840 ok (! mpz("9999999999999999999999999999999999999999999")->fits_slong_p());
1865 ok (GMP::get_d(mpz(123)) == 123.0);
1890 { my ($dbl, $exp) = get_d_2exp (mpz ("256"));
1907 ok (get_str(mpz(-123)) eq '-123');
1913 ok (get_str(mpz(-123),10) eq '-123');
1919 ok (get_str(mpz(-123),16) eq '-7b');
1925 ok (get_str(mpz(-123),-16) eq '-7B');
1978 ok (GMP::get_si(mpz(123)) == 123.0);
2008 ok (  GMP::integer_p (mpz(1)));
2025 ok (  odd_p(mpz(-3)));
2026 ok (! odd_p(mpz(-2)));
2027 ok (  odd_p(mpz(-1)));
2028 ok (! odd_p(mpz(0)));
2029 ok (  odd_p(mpz(1)));
2030 ok (! odd_p(mpz(2)));
2031 ok (  odd_p(mpz(3)));
2050 ok (sprintf ("%d", mpz(123)) eq '123');
2051 ok (sprintf ("%d %d %d", 456, mpz(123), 789) eq '456 123 789');
2057 ok (sprintf ("%*d", 6, mpz(123))  eq '   123');
2061 ok (sprintf ("%x", mpz(123))  eq '7b');
2063 ok (sprintf ("%X", mpz(123))  eq '7B');
2065 ok (sprintf ("%#x", mpz(123))  eq '0x7b');
2067 ok (sprintf ("%#X", mpz(123))  eq '0X7B');
2077 ok (via_printf ("%d", mpz(123)) eq '123');
2078 ok (via_printf ("%d %d %d", 456, mpz(123), 789) eq '456 123 789');
2084 ok (via_printf ("%*d", 6, mpz(123))  eq '   123');
2088 ok (via_printf ("%x", mpz(123))  eq '7b');
2090 ok (via_printf ("%X", mpz(123))  eq '7B');
2092 ok (via_printf ("%#x", mpz(123))  eq '0x7b');
2094 ok (via_printf ("%#X", mpz(123))  eq '0X7B');
2128 ok (mpz(-123)->sgn() == -1);
2129 ok (mpz(0)   ->sgn() == 0);
2130 ok (mpz(123) ->sgn() == 1);