Branch Coverage

blib/lib/Math/Prime/Util/PP.pm
Criterion Covered Total %
branch 3711 5922 62.6


line true false branch
13 64 13 unless (defined $Math::BigInt::VERSION)
194 2 0 if defined $_[0] and $_[0] ne ""
198 2 1035 unless (defined $Math::BigFloat::VERSION)
211 40 0 if ref($x) =~ /^Math::Big/
212 24 16 if defined $b
216 16 0 defined $Math::BigFloat::VERSION ? :
217 0 0 $i > $f ? :
0 16 if defined $i and defined $f
218 0 16 if defined $i
219 0 16 if defined $f
222 16 0 defined $Math::BigFloat::VERSION ? :
223 0 16 $i > $f ? :
16 0 if defined $i and defined $f
224 0 0 if defined $i
225 0 0 if defined $f
232 0 0 if (defined $bignum::VERSION or ref($_[0]) =~ /^Math::Big/)
233 0 0 unless (defined $Math::BigFloat::VERSION)
235 0 0 if (ref $_[0] eq "Math::BigInt")
238 0 0 if $xacc
240 0 0 if ref $_[0] ne "Math::BigFloat"
254 0 456323 unless defined $n
258 453867 2456 if (not $refn) { }
2456 0 elsif ($refn eq 'Math::BigInt') { }
0 0 elsif ($refn =~ /^Math::/ and $refn ne 'Math::BigFloat') { }
0 0 elsif ($refn eq 'CODE') { }
259 0 453867 if $n eq "" or $n =~ tr/0-9//c and not $n =~ /^([+-]?)\d+\z/
261 0 15632 if $1 and substr($n, 0, 1) eq '+' || $n eq '-0'
262 20 453847 if $n >= '18446744073709551615' or $n <= '-9223372036854775808'
264 0 2456 unless $n->is_int
265 0 0 if $n >= '-9223372036854775808'
0 2456 if ($n->is_negative) { }
266 405 2051 if $n <= '18446744073709551615'
268 0 0 if $n <= '18446744073709551615' and $n >= '-9223372036854775808'
276 0 456323 if ref $_[0] eq "Math::BigInt" and $_[0]->upgrade
285 0 53551 unless defined $n
289 53356 195 if (not $refn) { }
195 0 elsif ($refn eq 'Math::BigInt') { }
0 0 elsif ($refn =~ /^Math::/ and $refn ne 'Math::BigFloat') { }
0 0 elsif ($refn eq 'CODE') { }
290 0 53356 if $n eq "" or $n =~ tr/0-9//c and not $n =~ /^(\+?)\d+\z/ or $n < 0
292 0 53356 if $1 and substr($n, 0, 1) eq "+"
294 6 53350 if $n >= '18446744073709551615'
296 0 195 if not $n->is_int or $n->is_negative
298 4 191 if $n <= '18446744073709551615'
300 0 0 if $n < 0
301 0 0 if $n <= '18446744073709551615'
309 0 53551 if ref $_[0] eq "Math::BigInt" and $_[0]->upgrade
314 0 10677 if "$_[0]" < 1
319 21 4516 if (ref $_[0]) { }
320 0 21 if $_[0] < 0
322 15 4501 if "$_[0]" < 0
329 0 0 unless defined $Math::Prime::Util::GMP::VERSION and $Math::Prime::Util::GMP::VERSION >= $ver
334 0 0 if (not ref $x or ref $x eq "Math::BigInt")
336 0 0 if not ref $x or $fr < "1e+15" and $fr > "-1e+15"
347 0 183 if defined $exitsub and &$exitsub($n, $lo, $hi)
348 99 84 if (&$sub($mid) < $n) { }
364 0 0 unless (defined $v)
365 0 0 if (ref $v) { }
0 0 elsif ($v =~ /^[+-]?\d+\z/) { }
0 0 elsif ($v =~ /e/i or $v =~ /\./) { }
366 0 0 if ref $v eq "Math::BigFloat"
374 0 0 if ($v =~ /^nan\z/i)
384 461 0 if ($n >= 0) { }
386 4 457 if ($n =~ /^[+]?\d+\z/) { }
428 29 elsif ($n < $max) { }
387 3 1 if $n < $max
395 0 0 if ($n =~ /^[-]\d+\z/) { }
0 0 elsif ($n > $min) { }
396 0 0 if $n > $min
404 0 11 if ref $n and defined $_BIGINT and ref $n ne $_BIGINT
411 0 27 if length $bstr <= 32
413 1 26 if (length $bstr <= 64)
418 0 26 if (not defined $_BIGINT) { }
26 0 elsif ($_BIGINT =~ /^Math::(BigInt|GMPz|GMP)$/) { }
443 80 1 if ($N > $_precalc_size)
444 78 2 if ($_primes_small[-1] < 7) { }
473 0 1288 if $n >= $_primes_small[-1]
478 1991 10365 if ($_primes_small[$mid] <= $n) { }
487 14 16185 if ref $n and $n <= '18446744073709551615'
489 661 15538 if (ref $n)
491 223 438 unless &Mgcd($n, 215656441) == 1
492 93 345 unless &Mgcd($n, "4885866070719029716366506343847722513") == 1
493 255 90 unless _miller_rabin_2($n)
494 0 90 if (&Mcmpint($n, "18446744073709551615") <= 0)
495 0 0 is_almost_extra_strong_lucas_pseudoprime($n) ? :
497 86 4 is_extra_strong_lucas_pseudoprime($n) ? :
500 5865 9673 if ($n < 3721)
502 3537 32598 if $i * $i > $n
503 2177 30421 unless $n % $i
508 251 5821 unless $n % 7 and $n % 11 and $n % 13 and $n % 17 and $n % 19 and $n % 23 and $n % 29 and $n % 31 and $n % 37 and $n % 41 and $n % 43 and $n % 47 and $n % 53 and $n % 59
522 2530 3291 if ($n <= 1500000)
526 28 2224 unless $n % $i and $n % ($i + 6) and $n % ($i + 10) and $n % ($i + 12) and $n % ($i + 16) and $n % ($i + 18) and $n % ($i + 22) and $n % ($i + 28)
533 2202 8027 if $i > $limit
534 115 7912 unless $n % $i
540 3239 52 if ($n < '154639673381')
546 3198 41 if ($n < 19471033) { }
6 35 elsif ($n < 38010307) { }
14 21 elsif ($n < 316349281) { }
8 13 elsif ($n < 4759123141) { }
13 0 elsif ($n < 154639673381) { }
0 0 elsif ($n < 47636622961201) { }
0 0 elsif ($n < 3770579582154547) { }
554 351 2888 is_strong_pseudoprime($n, @b) ? :
558 14 38 unless _miller_rabin_2($n)
559 38 0 is_almost_extra_strong_lucas_pseudoprime($n) ? :
565 3 14487 if $n < 2
567 1065 13422 if (ref $n eq 'Math::BigInt') { }
568 547 518 unless Math::BigInt::bgcd($n, bless( {"sign" => "+","value" => bless( [30], 'Math::BigInt::Calc' )}, 'Math::BigInt' ))->is_one
570 87 12 $n == 2 || $n == 3 || $n == 5 ? :
99 13323 if ($n < 7)
571 5427 7303 unless $n % 2 and $n % 3 and $n % 5
585 0 0 $n == 2 || $n == 3 || $n == 5 ? :
0 29 if $n < 7
586 0 29 unless $n % 2
587 21 8 unless _miller_rabin_2($n)
588 3 5 if ($n <= '18446744073709551615')
589 0 3 is_almost_extra_strong_lucas_pseudoprime($n) ? :
591 5 0 is_extra_strong_lucas_pseudoprime($n) ? :
602 0 0 if $n <= '18446744073709551615'
630 6 106 if ($end & 1) == 0
634 0 112 if $whole > 1145324612
655 32 2294 if $end > $primary_size_limit
657 2 2292 if ($primary_sieve_size == 0)
672 0 634 if ref $end and $end <= '18446744073709551615'
674 0 634 if $beg % 2 == 0
675 0 634 if $end % 2 == 0
676 0 634 if $end < $beg
677 0 634 if $beg < 3
685 10 624 if $beg == 3
686 2 632 if $beg == 5
691 10 624 if $end < 49
694 624 0 if not defined $limit or $sqlimit < $limit
704 40207 623 if ($p2 < $beg)
705 40207 0 if ($beg < 562949953421312.0) { }
715 19891 20939 if $p2 > $end
727 1 1 unless (defined $high)
733 0 2 if $low > $high
737 2 0 if ($high - $low < 1000)
738 2 0 if $low >= 2
748 0 0 if $low <= 2 and $high >= 2
749 0 0 if $low <= 3 and $high >= 3
750 0 0 if $low <= 5 and $high >= 5
751 0 0 if $low < 7
752 0 0 if $low % 2 == 0
753 0 0 if $high % 2 == 0
758 0 0 if _miller_rabin_2($p) and is_extra_strong_lucas_pseudoprime($p)
765 2670 50 if (scalar @_ > 1) { }
767 6 2664 if $low < 2
773 1919 801 if $low > $high or $high < 2
774 642659 4101 if $_ >= $low
791 10 if $high <= $_primes_small[-1]
777 0 10 if ($Math::Prime::Util::_GMPfunc{'sieve_primes'} and $Math::Prime::Util::GMP::VERSION >= "0.34")
779 0 0 ref $high ? :
785 0 9 if ref $low eq "Math::BigInt" or ref $high eq "Math::BigInt" or $low > '1000000000000' and $high - $low < int $low / 1000000
789 1 8 if $low <= 2 and $high >= 2
790 1 8 if $low <= 3 and $high >= 3
791 1 8 if $low <= 5 and $high >= 5
792 2 7 if $low < 7
793 5 4 if $low % 2 == 0
794 7 2 if $high % 2 == 0
795 0 9 if $low > $high
798 2 7 if ($low == 7) { }
819 1 3 if ($n < 5)
820 0 1 if $n <= 2 and $n + $width - 1 >= 2
821 0 1 if $n <= 3 and $n + $width - 1 >= 3
822 1 0 if $n <= 4 and $n + $width - 1 >= 4 and $depth < 2
827 1 3 if $depth < 2
829 20 20 if $_ & 1
830 2 1 if $depth < 5
833 1 0 unless ($start & 1)
834 0 1 unless $width & 1
835 0 1 if $width < 1
851 0 19 if ($Math::Prime::Util::_GMPfunc{'sieve_prime_cluster'})
857 0 19 if scalar @cl == 0
862 0 48 if $cl[$i] & 1
863 0 48 if $cl[$i] <= $cl[$i - 1]
866 10 9 if (defined $_BIGINT and ref $lo || ref $hi)
867 0 10 if ref $lo ne $_BIGINT or ref $hi ne $_BIGINT
869 19 0 if $hi - $lo < 50000000
870 19 0 if $hi - $lo < 1000000
871 8 11 if $hi - $lo < 20000 and $lo < '18446744073709551615'
874 7 12 if ($lo <= $sievelim)
875 5 2 if $sievelim > $hi
879 882 237 unless (&Mis_prime($n + $cl[$ci]))
881 181 882 if $ac
885 5 14 if $lo > $hi
891 13020 13020 if $_ & 1
893 52 0 if ($p >= 7) { }
894 10727 6127 if ($_ + $c) % 3 and ($_ + $c) % 5
896 0 0 if ($_ + $c) % 3
904 0 14 if $_verbose
905 0 14 if scalar @acc == 0
925 14 40 if ($lo + $acc[-1] > $hi)
935 17 16091 unless scalar @racc
939 26 28 if ($lo < 10000000000000.0) { }
944 0 830 unless (&Mis_prime($p + $c))
946 415 0 if $good
953 46 20 unless (_miller_rabin_2($p + $c))
955 46 4 unless $good
958 0 8 unless (&Math::Prime::Util::is_extra_strong_lucas_pseudoprime($p + $c))
960 4 0 if $good
965 40 14 if ($lo <= $hi)
969 0 14 if $_verbose
975 2 0 if (scalar @_ > 1) { }
977 1 1 if $low < 2
983 0 2 if ($high > 1e+18 or $high - $low < 10) { }
986 0 0 if &Mis_prime_power($low)
994 3 15 if $P >= $low
998 1 9 if $P >= $low
1004 0 85 if $P >= $low
1014 4 1 if (scalar @_ > 1) { }
1016 0 4 if $low < 2
1022 0 5 if ($Math::Prime::Util::_GMPfunc{'twin_twin_primes'}) { }
1027 1 4 ref $high ? :
1032 1 0 if (scalar @_ > 1) { }
1034 0 1 if $low < 4
1051 0 5 if $n <= 0
1056 1533 4645 if &Mis_prime($k)
1057 5128 1050 if $s < $n
1058 843 5335 if ($k & 3) == 1 and &Mis_prime($k + 1 >> 1)
1059 5132 1046 if $s < $n
1066 4 0 if (scalar @_ > 1) { }
1068 1 3 if $low < 2
1073 0 4 if $low > $high or $high < 2
1083 0 2 if $n == 2
1084 0 2 if $n < 11
1086 1 1 scalar @$L > 0 ? :
1092 0 1 if $n <= 0
1100 7719 2041 if $n <= 0 + $#_prime_next_small
1104 5 2036 if not ref $n and $n >= '18446744073709551557'
1107 0 19 if ($n > 4294967295 and getconfig()->{'gmp'})
1121 1 156 if $n <= 11
1122 0 2 if ($n > 4294967295 and getconfig()->{'gmp'})
1130 1 155 if ref $n and $n <= '18446744073709551615'
1137 0 2 if $n <= 8
1140 2 16 if &Mis_prime_power($n)
1146 0 2 if $n <= 8
1149 2 10 if &Mis_prime_power($n)
1160 8 2 if ($n >= $bigpn) { }
1166 8051 452153 if $p > $j
1167 230126 222027 if (++$k & 2) { }
1180 1 2 if (defined $hi) { }
1183 0 3 if $hi < $lo or $hi == 0
1190 275 83 unless $_lf63[$m63]
1191 272 86 unless $_lf63[$m63 + 2]
1193 0 3 if $lucky[-1] > $hi
1202 1 2 if ($lo > 1)
1209 0 1 if (defined $hi) { }
1212 0 1 if $hi < $lo or $hi == 0
1215 0 0 if defined $_ and $_ >= $lo
0 1 if $hi <= $_small_lucky[-1]
1220 1 0 if $lo & 1
1221 0 1 if $hi & 1
1226 1 0 if ($lo <= 1) { }
1230 0 0 if $l > $hicount
1231 0 0 if $l <= $lo
1239 0 4 if ref $n
1240 0 4 if $n < 7
1241 4 0 if $n <= 1000000
1246 0 4 if ref $n
1247 0 4 if $n < 7
1248 0 4 if $n <= 7000
1249 4 0 $n < 10017000 ? :
1255 4 0 $n <= 10000 ? :
1261 0 0 if defined $_
0 1 if $n <= $_small_lucky[-1]
1269 0 0 if defined $_
0 2 if $n <= $_small_lucky[-1]
1277 0 0 if defined $_
0 1 if $n <= $_small_lucky[-1]
1286 1 0 if $n <= 0 + $#_small_lucky
1296 0 31 if $n <= 0 + $#_small_lucky
1297 0 31 if ref $n
1299 28 3 if ($n <= 80000) { }
1300 28 0 $n <= 10000 ? :
1303 3 0 $n <= 10000000 ? :
0 3 $n <= 1000000 ? :
0 3 $n <= 100000 ? :
0 3 $n <= 10000 ? :
1312 0 8 if $n <= 0 + $#_small_lucky
1313 0 8 $n <= 800 ? :
0 8 $n <= 300 ? :
0 8 $n <= 100 ? :
1319 0 15 if $n <= 0 + $#_small_lucky
1320 6 9 $n <= 1000 ? :
0 15 $n <= 130 ? :
1328 0 1 if $n <= 0 or not $n % 2 or $n % 6 == 5 or $_lf63[$n % 63]
1329 0 1 if $n < 45
1339 48 0 $i <= $lucky->$#* ? :
1340 1 47 if $pos < $l
1342 0 47 if $pos == $quo * $l
1350 0 2 if $n < 4
1351 0 0 &Mis_prime($n - 2) ? :
0 2 if $n == 4 or &Mis_odd($n)
1354 2 719 if &Mis_prime($n - $p)
1362 0 4 if $n < 4
1363 1 1 &Mis_prime($n - 2) ? :
2 2 if $n == 4 or &Mis_odd($n)
1366 204 92 if &Mis_prime($n - $_)
1372 3 3 unless wantarray
1374 0 3 if $n < 4
1375 1 1 &Mis_prime($n - 2) ? :
2 1 if $n & 1 or $n == 4
1378 14 2 if &Mis_prime($n - $_)
1391 6 37 if ($n < $max)
1401 893 67 if ($m <= 18446744073709551615) { }
1409 9 20 if $n < 10
1417 0 57 if $n <= 2
1425 1 56 if $pn <= '18446744073709551615'
1431 0 3 if scalar @A == 0
1434 0 3 if $A[0] == 1
1435 0 3 if $A[0] <= 1 or scalar @A <= 1
1436 0 3 unless &Mgcd(@A) == 1
1438 2 1 if scalar @A == 2
1449 0 2 if defined $np and $np <= $ai
1455 2 0 $r == 0 ? :
1456 2 0 if (defined $n)
1457 2 0 if (&Maddint($n, &Mmulint($A[$i], $nlend - 1)) <= 18446744073709551615) { }
1461 6 2 if (not defined $N[$p] or $N[$p] >= $n) { }
1467 0 0 if (not defined $N[$p] or $N[$p] >= $n) { }
1474 1 0 if defined $max
1482 0 0 $n == 1 ? :
0 25 if $k == 0
1483 0 25 if $k == 1
1484 0 0 $n == 1 ? :
0 25 if $n <= 1
1487 0 25 if $Math::Prime::Util::_GMPfunc{'jordan_totient'}
1500 8 49 if scalar @_ > 1
1502 0 49 if defined $n and $n < 0
1505 0 49 if $Math::Prime::Util::_GMPfunc{'totient'}
1508 4 45 if $n <= 1
1512 23 22 if ($n % 2 == 0)
1516 9 2 $totk < 32 ? :
11 12 if $totk > 0
1519 41 4 if ($n < 18446744073709551615) { }
1539 0 0 wantarray ? :
0 2 if $n == 1
1540 0 0 wantarray ? :
0 2 if $n < 1 or $n & 1
1542 0 2 if (&Mis_prime($n >> 1))
1544 0 0 wantarray ? :
0 0 unless &Mis_prime($np1)
1545 0 0 wantarray ? :
0 0 if $n >= 10
1548 1 1 if (not wantarray) { }
1552 4 4 if (&Mis_prime($p))
1556 7 15 if (defined $r{$d2})
1563 1 0 defined $r{$n} ? :
1577 4 4 unless &Mis_prime($p)
1586 7 15 if (defined $needed{$F} and $needed{$F} < $d)
1587 3 4 unless defined $needed{$d2}
1595 0 1 if $_verbose
1604 3 4 if (defined $r{$dset->[0]})
1607 1 2 if $needed{$d2} >= $d
1616 0 1 if $_verbose
1618 1 0 defined $r{$n} ? :
1632 0 8 if $hi < $lo
1634 5 3 if ($hi > 1073741824.0 or $hi - $lo < 100) { }
1635 2 3 if $hi > "562949953421312"
1640 1464 317 unless $tot[$i] == $i
1646 1 2 if $lo > 0
1654 0 7 if $n <= 0 + $cdata->$#*
1655 1 6 if defined $ecache->{$n}
1665 254 5 $x <= 0 + $cdata->$#* ? :
1666 259 0 $k <= $cdata->$#* ? :
1669 2 4 if ($s > $lim)
1671 2 0 $s <= 0 + $cdata->$#* ? :
1681 0 4 if $n <= 2
1683 2 2 if ($n < 900)
1691 0 2 if $csize > 50000000
1710 368 663 if scalar @_ > 1
1713 22 0 $n == 1 ? :
22 641 if $n <= 1
1714 61 580 if $n >= 49 and not $n % 4 && $n % 9 && $n % 25 && $n % 49
1717 152 293 if $factors[$i] == $factors[$i - 1]
1719 267 161 scalar(@factors) % 2 ? :
1722 229 88 &Mmoebius($_[0]) != 0 ? :
1748 1 0 $n->is_odd ? :
1 342 if $R eq "Math::BigInt"
1749 0 0 Math::GMPz::Rmpz_odd_p($n) ? :
0 342 if $R eq "Math::GMPz"
1751 143 199 $n % 2 ? :
1757 4 0 $n->is_even ? :
4 109 if $R eq "Math::BigInt"
1758 0 0 Math::GMPz::Rmpz_even_p($n) ? :
0 109 if $R eq "Math::GMPz"
1760 46 63 $n % 2 ? :
1768 0 0 if $n == 0
0 875 if ($d == 0) { }
1769 530 345 if $n % $d == 0
1778 8 0 if ($d != 0)
1779 8 0 if $n < 0 or $n >= $d
1780 4 4 if $c < 0 or $c >= $d
1790 0 8 if $n <= 1
1791 0 8 if $k <= 1
1792 0 8 if $n <= $k
1795 0 8 if $Math::Prime::Util::_GMPfunc{'is_smooth'}
1797 8 0 if ($k <= 10000000)
1801 8 8 if scalar @f <= 1
1802 0 8 if $f[-2] > $k
1808 0 0 &Mvecnone(sub { $_ > $k; } , &Mfactor($n)) ? :
1815 0 5 if $n == 0
1816 0 5 if $n == 1 or $k <= 1
1817 0 5 if $k > $n
1818 0 5 if $k == 2
1821 0 5 if $Math::Prime::Util::_GMPfunc{'is_rough'}
1823 5 0 if ($k < 50000)
1828 0 0 &Mvecnone(sub { $_ < $k; } , &Mfactor($n)) ? :
1833 2 4 if (defined $k) { }
1835 0 6 if $n < 1
1836 0 6 if $n == 1 or $k <= 1
1839 0 6 if $Math::Prime::Util::_GMPfunc{'is_powerful'}
1842 4 2 if ($k == 2) { }
1843 0 4 if $n % 3 == 0 and $n % 9 != 0
1844 1 3 if $n % 5 == 0 and $n % 25 != 0
1845 0 3 if $n % 7 == 0 and $n % 49 != 0
1846 0 3 if $n % 11 == 0 and $n % 121 != 0
1848 0 2 if $n % 3 == 0 and $n % 27 != 0
1849 0 2 if $n % 5 == 0 and $n % 125 != 0
1850 0 2 if $n % 7 == 0 and $n % 343 != 0
1851 0 2 if $n % 11 == 0 and $n % 1331 != 0
1857 4 6 if ($g != 1)
1860 1 3 if $n % $gk != 0
1868 2 1 if $n == 1
1879 0 2 if $n == 1 or &Mis_power($n) >= $k
1880 1 1 if $n < &Mpowint(149, 2 * $k)
1883 0 1 $lim_actual > 10000 ? :
1885 0 1 if ($Math::Prime::Util::_GMPfunc{'trial_factor'}) { }
1888 0 0 if scalar @fac <= 1
1890 0 0 $k == 2 ? :
1891 0 0 if $n % $fk != 0
1894 0 0 if $n == 1 or &Mis_power($n) >= $k
1895 0 0 if $n < $fk * $fk
1899 0 2 $k == 2 ? :
1900 0 2 if $n < $pk * $pk
1901 1 1 if ($n % $_ == 0)
1902 0 1 if $n % $pk != 0
1905 1 0 if $n == 1 or &Mis_power($n) >= $k
1909 1 0 if $n == 1 or &Mis_power($n) >= $k
1910 0 0 if $n <= &Mpowint($lim_effect, 2 * $k)
1913 0 0 &Mvecall(sub { $_->[1] >= $k; } , &Mfactor_exp($n)) ? :
1920 11392 7766 if $r <= $k
1924 19154 16718 if (&Mgcd($m, $i) == 1 and &Mis_square_free($i))
1933 0 20 if $n < 0
1934 19 1 if (defined $k) { }
1936 0 20 if $k <= 1 or $n <= 1
1938 16 4 if ($k == 2)
1963 0 1 if (defined $k) { }
1965 0 1 if $n == 0
1966 0 1 if $k <= 1 or $n <= 1
1967 0 1 if $n == 2
1968 0 1 if $n == 3
1976 1 0 if ($k == 2)
1979 0 1 if $hi > '18446744073709551615'
1980 0 1 if $lo > $hi
1993 7 7 if (&Math::Prime::Util::powerful_count($mid, $k) < $n) { }
2002 0 0 if ($r < $k)
2004 0 0 if ($r == $k) { }
2008 0 0 if (&Mgcd($m, $i) == 1 and &Mis_square_free($i))
2017 0 1368 if $r < $k
2021 663 705 if $r == $k
2027 8689 9254 unless &Mgcd($m, $i) == 1 and &Mis_square_free($i)
2029 8598 656 $R == $k ? :
2041 1486 63747 if $R != $lR
2049 0 12 if $n < 0
2050 12 0 if (defined $k) { }
2052 0 12 if $n <= 1
2053 3 9 if $k <= 1
2055 2 7 if $k == 2
2070 15 1 if ($r <= $k)
2071 14 1 if ($lo > $m)
2073 3 11 if ($lom >> $r == 0) { }
2077 8 3 if &Mpowint($beg, $r) != $lom
2085 15 7 if &Mgcd($m, $v) == 1 and &Mis_square_free($v)
2091 0 1 if (defined $k) { }
2092 1 0 if (defined $hi) { }
2098 0 1 if $hi < $lo
2099 0 1 if $k <= 1
2109 6 2 if (defined $k) { }
2112 0 0 $n == 1 ? :
0 8 if $k < 2 or $n <= 1
2114 0 8 if $n < 4
2116 8 0 if ($k == 2) { }
0 0 elsif ($k == 3) { }
2117 1 5 unless $n % 4 and $n % 9 and $n % 25
2118 0 5 if $n < 49
2120 0 0 unless $n % 8 and $n % 27 and $n % 125
2121 0 0 if $n < 343
2126 0 14 if $pe->[1] >= $k
2134 350 17 if (defined $k) { }
2137 16 0 $n >= 1 ? :
16 351 if $k < 2 or $n <= 1
2143 349 2 if ($n < 9223372036854775807 and $nk < 20000) { }
1 2 elsif ($n < 9223372036854775807 and $nk < 100000000.0) { }
2147 1021 346 if $mu[$i]
2156 8594 5547 if $mu[$i]
2183 8 4 scalar @_ & 1 ? :
2191 3 0 if ($i < 15) { }
2197 0 3 if scalar @C > 100000
2206 0 1 if (defined $k) { }
2209 0 1 if $n == 0 or $k < 2
2210 0 1 if $n < 4
2214 1 0 if ($n <= 4503599627370496.0) { }
2215 1 0 $k == 2 ? :
2217 0 0 unless (defined $Math::BigFloat::VERSION)
2227 0 1 if $verbose
2234 1 0 $count >= $n ? :
2235 0 1 if $verbose
2236 1 0 if $diff <= 300
2240 0 0 $count > $n ? :
2242 0 1 if $verbose
2246 0 1 if $verbose
2249 0 1 $count < $n ? :
2260 8 0 if (defined $k) { }
2263 1 0 $n >= 1 ? :
1 7 if $k < 2 or $n <= 1
2272 44 32 scalar @_ & 1 ? :
2282 0 1003 $n < 0 ? :
2284 1001 2 if (defined $k) { }
2287 0 1003 if $n == 1
2288 994 9 if $k < 2 or $n == 0
2295 54 29 if $pe->[1] >= $k
2298 0 9 unless $negmul == 1
2304 376 3 $n < 65536 ? :
2314 2 1 if (defined $k) { }
2317 0 0 $n >= 1 ? :
0 3 if $k < 2 or $n <= 1
2328 0 2 if $n < 0
2335 0 3 if ($n < 0)
2337 0 0 $n == -1 || $res > 2 && ($res & $res - 1) != 0 ? :
2339 0 3 if $n <= 9
2340 2 1 &Mis_power($n) > 1 ? :
2345 0 8 if $n < 8
2353 147 247 if $m == 0
2360 1 1 if (defined $hi) { }
2363 0 2 if $hi < $lo or $hi == 0
2364 1 1 $lo <= 1 ? :
2385 0 5 if $n < 0
2387 0 5 if $n == 0
2388 0 0 $only_oddpowers ? :
0 5 if $n == 1
2391 2 3 $only_oddpowers ? :
2392 2 3 $only_oddpowers ? :
2398 0 177 if $c < $best and $c > $n
2404 0 8 if $n < 0
2406 0 8 if $n <= 4
2407 0 0 $only_oddpowers ? :
0 8 if $n <= 8
2410 1 7 $only_oddpowers ? :
2411 1 7 $only_oddpowers ? :
2416 425 0 if ($r > 1)
2418 12 413 if $c >= $n
2419 8 417 if $c > $best and $c < $n
2429 0 4 if $n < 1 and $n >= -4
2431 1 3 if $n < 0
2439 0 9 if $n <= 4 and $n >= 0
2441 2 7 if $n < 0
2449 0 3 if $n < 8
2455 0 1 if ($n > "4294967296" and $Math::Prime::Util::_GMPfunc{'powreal'})
2478 1 2 if $n > "4294967296"
2480 2 1 unless (ref $n)
2515 0 1 if $n < 8
2516 0 1 if ref $n or $n > "4294967296"
2528 0 1 if $n < 8
2529 0 1 if ref $n or $n > "4294967296"
2542 0 2 if $n < 8
2551 0 0 if $gn++ >= 20
2553 1 1 if ($c >= $n) { }
2567 0 13 if $n <= 5
2574 0 13 if (defined $hi) { }
2577 0 13 if $hi < $lo or $hi == 0
2578 13 0 $lo <= 2 ? :
2583 0 20 if $n <= 5
2591 0 20 if $n <= 5
2599 0 19 if $n <= 5
2611 0 4 if $n < 90
2617 0 1 if $n < 8
2625 0 1 if $n < 8
2633 0 1 if $n < 8
2641 0 1 if $n < 8
2653 0 710 if $n < 1
2654 0 710 if $k <= 1
2655 0 710 if $k >= $n
2658 710 0 if ($k >= 3)
2666 710 0 if ($k >= 5)
2683 954 709 $p >= $np ? :
2693 0 1 if $k <= 2
2694 0 1 if $k <= 3
2702 80 9 if ($k == 1) { }
2710 84 70 if &Mcdivint($A, $t) <= &Mdivint($B, $t)
2720 5 0 if $A <= $B
2727 4 4 if (defined $high) { }
2731 0 0 $low <= 1 && $high >= 1 ? :
0 8 if ($k == 0)
2732 1 7 if ($k == 1)
2737 3 4 if $low < $minlow
2738 0 7 if $low > $high
2741 2 5 if ($low > "1000000000")
2746 2 3 if scalar @_ == $k
2758 698 367 if $m % $q == 0
2760 5 2974 if ($k == 1) { }
2761 5 0 if $v >= $lo
2763 2612 362 if &Mmulint($v, $q) <= $hi
2772 1 4 if (defined $high) { }
2776 0 0 $low <= 1 && $high >= 1 ? :
0 5 if ($k == 0)
2777 1 4 if ($k == 1)
2780 0 4 if $low > $high
2784 1 3 if ($high - $low > 1000000000 or $k >= 10 and $high - $low > 10000000) { }
2791 20 357 if &Mprime_omega($low) == $k
2801 0 9 if $n < 6
2802 9 0 if ($n > 15)
2803 0 8 if $n % 4 == 0 or $n % 6 == 0 or $n % 9 == 0 or $n % 10 == 0 or $n % 14 == 0 or $n % 15 == 0
2806 0 0 &Math::Prime::Util::is_prob_prime($n >> 1) ? :
0 8 if $n % 2 == 0
2807 0 2 &Math::Prime::Util::is_prob_prime($n / 3) ? :
2 6 if $n % 3 == 0
2808 0 1 &Math::Prime::Util::is_prob_prime($n / 5) ? :
1 5 if $n % 5 == 0
2829 4 1 scalar &Mfactor($n) == 2 ? :
2836 0 32 if $n <= 0
2838 0 32 if $k == 0
2839 2 2 &Mis_prime($n) ? :
4 28 if $k == 1
2840 4 24 if $k == 2
2841 0 24 if $n >> $k == 0
2855 12 12 scalar &Mfactor($n) == $k ? :
2860 0 1 if $n < 2
2870 1 1 if &Mis_prime($n2) or &Mis_semiprime($n2)
2879 0 22 if $n <= 0
2881 0 22 if $k == 0
2883 12 10 &Mprime_omega($n) == $k ? :
2889 0 2 if $n <= 0
2891 0 1 $n == 1 ? :
1 1 if $n % 2
2892 0 1 if ($n & $n - 1) == 0
2893 0 0 if $n % 6 and $n % 20 and $n % 28 and $n % 88 and $n % 104 and $n % 16
2900 1 2 if ($e >= 2)
2908 0 3 if $pe[$i][0] > 1 + $prod
2916 1 2 if (defined $b) { }
2918 0 1 if $b < 2
2923 0 3 if $b == 10 and $n < 100
2924 0 3 if $b == 3 and $n == 2
2925 0 3 unless &Mis_prime($n)
2927 2 1 if ($b == 10) { }
2934 27 243 if $dnew == $dold
2935 2 241 if ($d == 0 and $dnew == 0) { }
2937 0 2 if &Mis_prime($T)
2940 0 241 if &Mis_prime($N)
2952 5 75 if $dnew == $dold
2954 0 75 if &Mis_prime(&Mfromdigits($D, $b))
2964 23 11 if $maxd <= 1 or &Mis_odd($n)
2965 2 9 if ($n & $n - 1) == 0
2967 1 8 if $n == 1 or $n < $maxd and &Mis_prime(2 * $n + 1)
2969 4 63 if $d >= $maxd
2970 54 9 $d < 4611686018427387903 ? :
2972 38 25 unless &Mis_prime($p)
2975 2 27 if $r == $p or _totpred($r, $d)
2977 23 4 if $R != 0
2986 0 5 if $n <= 1
2995 0 371 if $hi < $lo
2996 0 371 if $lo == $hi
2997 2 369 if ($lo < 0)
2998 1 1 if ($hi < 0) { }
3005 2 367 if ($hi > "4294967296")
3006 2 0 if $hi > "562949953421312"
3011 352 15 if $lo == 0
3015 8 1 $lo % $i ? :
9 214 if $i < $lo
3021 8 3 $lo % $i ? :
11 212 if $i < $lo
3030 14054 3179 if abs $m != $i
3042 0 9 if $n <= 1
3049 81 148 if $mu[$m] == 0
3057 5759 3995 if $this_k == $next_k
3068 0 1173 if $n <= $size
3069 869 304 if exists $Href->{$n}
3078 5361 1163 $nk <= $size ? :
3082 146 158 if $s > $ns
3093 9 2 if $n < 20000
3097 0 2 if $size < &Msqrtint($n)
3111 0 1 if $k < 1 or $n < 1
3114 0 1 if $m == 0 or $k == $g
3121 2 2 scalar &Mfactor($n) & 1 ? :
3127 0 1 if $n < 16
3132 1 0 if $size < $sqrtn
3142 1 52 if $nk == 1
3143 44 8 $nk <= $size ? :
3153 0 5 if $n <= 1
3154 3 2 if (&Mis_prime_power($n, \my $p))
3163 0 2 if $n < 8
3164 0 2 if ($n & $n - 1) == 0
3167 0 2 if $pe[0][0] == 2 and $pe[0][1] > 2
3176 0 2 if $n < 4
3177 0 2 if $n % 2 == 0
3178 0 1 unless $n % 9 and $n % 25 and $n % 49 and $n % 121
3179 0 1 unless $n % 21 and $n % 39 and $n % 55 and $n % 57 and $n % 93
3181 1 0 if &Mgcd($n, &Mtotient($n)) == 1
3188 0 8 if $n < 561 or $n % 2 == 0
3191 0 8 if $Math::Prime::Util::_GMPfunc{'is_carmichael'}
3196 0 6 unless $n % 9 and $n % 25 and $n % 49 and $n % 121
3201 17 45 if ($fn % $a == 0)
3202 1 16 if ($n - 1) % ($a - 1) != 0
3204 0 16 unless $fn % $a
3207 1 4 if &Mpowmod(2, $n - 1, $n) != 1
3212 0 4 if (length $fn > 50)
3213 0 0 if &Mis_prime($n)
3217 0 0 if ($gcd == 1) { }
3218 0 0 if &Mpowmod($a, $n - 1, $n) != 1
3220 0 0 if $gcd != $a
3221 0 0 if ($n - 1) % ($a - 1) != 0
3230 1 3 if scalar @pe < 3
3232 0 34 if $pe->[1] > 1 or ($n - 1) % ($pe->[0] - 1) != 0
3241 0 3 if $n < 35
3242 0 3 unless $n % 4 and $n % 9 and $n % 25 and $n % 49 and $n % 121
3246 0 3 if scalar @pe < 2
3249 0 7 if $pe->[1] > 1
3253 1 2 if ($n < 2000) { }
3259 3 33 if &Mvecall(sub { $nb % ($_ - $b) == 0; } , @f)
3261 0 1 if (scalar @f > 2)
3264 0 0 if &Mvecall(sub { $nb % ($_ + $b) == 0; } , @f)
3269 1 1 if (scalar @f == 2) { }
3273 1 7 if $d >= $spf
3274 14 0 if $j
1 6 if &Mvecall(sub { my $j = $_ - $k; $p % $j == 0 if $j; } , @f)
3280 13 23 if $k == 0 or $k >= $spf
3281 27 0 if $j
2 21 if &Mvecall(sub { my $j = $_ - $k; $p % $j == 0 if $j; } , @f)
3291 0 1 if $p < 23
3292 0 1 unless $p % 2 and $p % 3 and $p % 5 and $p % 7
3298 1 10 if $nfac == $pm1 and $p % $n != 1
3307 2 2 if $neg
3309 4 0 if ($r)
3311 2 2 if (not $neg) { }
3312 0 1 $r == 4 ? :
1 1 if $r4 == 0
3313 1 0 if $r4 == 1
3315 0 1 $r == 12 ? :
1 1 if $r4 == 0
3316 1 0 if $r4 == 3
3329 0 930 if $n == 0
3331 916 14 if (defined $k and ref $k eq "CODE")
3335 12 3559 $refn ? :
3339 0 14 if $n == 1
3341 0 14 unless not defined $k or &validate_integer_nonneg($k)
3343 2 12 unless defined $k
3346 0 14 if $Math::Prime::Util::_GMPfunc{'sigma'}
3350 3 11 if $k == 0
3354 4 7 if ($k == 1) { }
3357 38 11 if ($e == 1) { }
5 6 elsif ($e == 2 and $p < 65536) { }
3369 51 0 if ($e == 1) { }
3376 0 11 if @prod == 1
3377 2 9 if ($k == 1 and $n < 845404560)
3382 0 9 if @prod == 2
3399 0 942 if ($a == 0) { }
0 942 elsif ($a == 1) { }
0 942 elsif ($a == 2) { }
4 938 elsif ($a == 3) { }
4 934 elsif ($a == 4) { }
2 932 elsif ($a == 5) { }
3419 2 27 if ($#_s3 == -1)
3423 14 15 if $a <= 6
3424 1 14 unless defined $primes
3425 0 0 $x > 0 ? :
0 15 if $x < $primes->[$a]
3435 777 1239 if ($sval < $primea) { }
3444 0 1086 if $vals{$v} == 0
3456 4 1673 if $high < 7
3457 29 1644 unless $high % 2
3463 5857 3366 unless defined $high
3465 5884 3339 if ($low < 3) { }
3467 4646 4577 unless $high % 2
3468 0 9223 if $low > $high
3472 597 8626 if (not defined $sref or $send >= length $$sref)
3482 73 27 if $x < 1000
3490 0 27 $b <= 10 ? :
3510 299 3067 if ($i <= $c)
3524 13 2546 if (defined $high) { }
3528 2 2557 if $high < 2 or $low > $high
3531 0 0 if $Math::Prime::Util::_GMPfunc{'prime_count'} and ref $high eq 'Math::BigInt' || $high - $low < int $low / 1000000
3535 2545 12 if $low <= 2 and $high >= 2
3536 2545 12 if $low < 3
3537 7 2550 if $low % 2 == 0
3538 1139 1418 if $high % 2 == 0
3539 175 2382 if $low > $high
3541 762 1619 if (ref $low eq "Math::BigInt" or ref $high eq "Math::BigInt" or $high - $low < 10 or $high - $low < int $low / '100000000000')
3554 15 1604 if ($high > 50000)
3555 10 5 if ($high / ($high - $low + 1) < 100)
3557 7 3 $low == 3 ? :
3562 1602 7 if $low == 3
3574 1 36 if $n <= 0
3575 28 8 if $n <= 0 + $#_primes_small
3577 0 8 if ref $n or $n > '425656284035217743' or $n > "35184372088832"
3585 0 8 $n <= 10 ? :
3586 4 4 if ($nth_prime_upper > 100000)
3589 2 2 unless $nth_prime_lower % 2
3596 5 3 $n < 10000 ? :
0 8 $n < 1000 ? :
3601 8 12 if $count + $segcount >= $n
3609 3228 12558 unless substr $$sieveref, $prime - $start >> 1, 1
3620 0 34 if $n <= 0
3621 5 29 if $n <= 0 + $#_primes_small
3623 0 29 if ref $n or $n > '425656284035217743' or $n > "35184372088832"
3629 0 29 if ($n >= 46254381) { }
0 29 elsif ($n >= 8009824) { }
4 25 elsif ($n >= 688383) { }
0 25 elsif ($n >= 178974) { }
2 23 elsif ($n >= 39017) { }
23 0 elsif ($n >= 6) { }
3653 0 29 if $n <= 0
3654 0 29 if $n <= 0 + $#_primes_small
3656 1 28 if ref $n or $n > '425656284035217743' or $n > "35184372088832"
3675 1 28 if $n >= '425656284035217743' and $plower < '18446744073709551557'
3689 0 6 if ref $dn
3691 0 6 if abs $term >= abs $old_term
3694 2 4 if abs $term < "1e-06"
3703 0 1 if $n <= 5
3709 0 1 $n > 4e+16 ? :
3710 0 1 if (int MLi($t - 1) >= $n) { }
0 1 elsif (int MLi($t) < $n) { }
3713 0 0 if int MLi($t - $inc) >= $n
3718 0 0 if int MLi($t + $inc - 1) < $n
3729 0 0 if $n <= 5
3730 0 0 if ref $n or $n > '425656284035217743' or $n > "35184372088832"
3738 0 0 if abs $term >= abs $old_term
3741 0 0 if abs $term < "1e-06"
3743 0 0 ref $t ? :
3750 0 2 if $n <= 0
3751 0 2 if $n <= 0 + $#_primes_small
3754 0 2 if $n > "1000000000000"
3756 0 2 if ref $n or $n >= '425656284035217743'
3782 0 2 if ($n < 259) { }
0 2 elsif ($n < 775) { }
0 2 elsif ($n < 1271) { }
0 2 elsif ($n < 2000) { }
0 2 elsif ($n < 4000) { }
0 2 elsif ($n < 12000) { }
0 2 elsif ($n < 150000) { }
2 0 elsif ($n < 20000000) { }
0 0 elsif ($n < 100000000) { }
0 0 elsif ($n < 500000000) { }
0 0 elsif ($n < 2000000000) { }
3805 413 24 if $x < $_primes_small[-1]
3808 4 20 if $x > '10000000000000000'
3810 0 24 if ref $x and not $floatx
3833 4 20 if $floatx
3836 20 4 if ($Math::Prime::Util::_GMPfunc{'riemannr'} or not ref $x) { }
3840 4 0 $floatx ? :
3841 4 0 if $floatx
3844 4 0 $floatx ? :
3847 32 56 unless $m != 0
3855 4 52 if $term < "0.25"
3856 22 30 if ($m == 1) { }
3868 436 34 if $x < $_primes_small[-1]
3871 0 34 if $Math::Prime::Util::_GMPfunc{'prime_count_lower'}
3873 8 26 if $x > '10000000000000000'
3875 0 34 if ref $x and not $floatx
3880 8 26 $floatx ? :
3896 0 34 if ($x < 599) { }
25 9 elsif ($x < 52600000) { }
9 0 elsif ($x < 1.1e+26 or getconfig()->{'assume_rh'}) { }
3899 0 25 if ($x < 2700) { }
0 25 elsif ($x < 5500) { }
4 21 elsif ($x < 19400) { }
0 21 elsif ($x < 32299) { }
0 21 elsif ($x < 88783) { }
0 21 elsif ($x < 176000) { }
0 21 elsif ($x < 315000) { }
1 20 elsif ($x < 1100000) { }
1 19 elsif ($x < 4500000) { }
3914 1 8 if ($x < 1e+19) { }
3917 8 0 if (ref $x eq 'Math::BigFloat') { }
3938 439 35 if $x < $_primes_small[-1]
3941 0 35 if $Math::Prime::Util::_GMPfunc{'prime_count_upper'}
3943 8 27 if $x > '10000000000000000'
3945 0 35 if ref $x and not $floatx
3973 8 27 $floatx ? :
3975 5 30 if ($x < 15900) { }
22 8 elsif ($x < 821800000) { }
0 8 elsif ($x < 1e+19) { }
8 0 elsif ($x < 1.1e+26 or getconfig()->{'assume_rh'}) { }
3976 0 5 $x < 5000 ? :
0 5 $x < 1621 ? :
3979 0 22 if ($x < 24000) { }
0 22 elsif ($x < 59000) { }
0 22 elsif ($x < 350000) { }
0 22 elsif ($x < 355991) { }
0 22 elsif ($x < 356000) { }
2 20 elsif ($x < 3550000) { }
0 20 elsif ($x < 3560000) { }
0 20 elsif ($x < 5000000) { }
0 20 elsif ($x < 8000000) { }
0 20 elsif ($x < 13000000) { }
19 1 elsif ($x < 18000000) { }
0 1 elsif ($x < 31000000) { }
0 1 elsif ($x < 41000000) { }
0 1 elsif ($x < 48000000) { }
0 1 elsif ($x < 119000000) { }
0 1 elsif ($x < 182000000) { }
0 1 elsif ($x < 192000000) { }
0 1 elsif ($x < 213000000) { }
0 1 elsif ($x < 271000000) { }
0 1 elsif ($x < 322000000) { }
0 1 elsif ($x < 400000000) { }
1 0 elsif ($x < 510000000) { }
0 0 elsif ($x < 682000000) { }
0 0 elsif ($x < 2953652287) { }
4006 0 0 $x < 101260000000.0 ? :
0 0 $x < 10010000000.0 ? :
0 0 $x < 1100000000.0 ? :
4012 8 0 if (ref $x eq 'Math::BigFloat') { }
4029 1 1 if (defined $high) { }
4035 2 0 if $seghigh > $high
4051 1 14 if (defined $hi) { }
4055 0 15 if ($hi - $lo + 1 < $hi / (sqrt($hi) / 4))
4058 0 0 if &Mis_semiprime($lo)
4063 14 1 $lo < 4 ? :
4083 1617 0 $_ <= $nlim ? :
4090 0 334 if $k == 2
4095 223 111 $k == 3 ? :
4103 0 103 if $k == 0
4106 0 103 if $k == 0
4108 0 17 if $ok != $k and not ref $n and getconfig()->{'xs'}
4109 1 102 if $k == 1
4110 1 101 if $k == 2
4111 0 101 if $n >> $k == 0
4118 4 28 unless defined $s
4119 4 28 unless defined $j
4122 12 20 if ($k == 2) { }
4128 16 11 if $r > $w
4132 11 0 if $u > $n
4147 30 28 if $r > $s
4161 0 0 $n >= 1 ? :
0 5 if $k == 0
4162 1 4 if $k == 1
4177 0 1 if (defined $high) { }
4183 1 0 if $seghigh > $high
4193 0 41 if $n < 2000
4195 1 40 if ref $n
4201 0 41 if ($n < 4000) { }
0 41 elsif ($n < 8000) { }
0 41 elsif ($n < 16000) { }
0 41 elsif ($n < 32000) { }
0 41 elsif ($n < 64000) { }
0 41 elsif ($n < 128000) { }
0 41 elsif ($n < 256000) { }
0 41 elsif ($n < 600000) { }
0 41 elsif ($n < 1000000) { }
0 41 elsif ($n < 4000000) { }
0 41 elsif ($n < 16000000) { }
0 41 elsif ($n < 32000000) { }
4218 0 41 if defined $fm
4226 0 7 if $n < 4
4240 0 37 if $k == 0
4241 0 37 if $k == 1
4242 6 31 if $k == 2
4243 0 31 if $n >> $k == 0
4248 4 27 if ($k == 3)
4253 0 4 if ($x <= 638) { }
0 4 elsif ($x <= 1544) { }
0 4 elsif ($x <= 1927) { }
2 2 elsif ($x <= 486586) { }
0 2 elsif ($x <= 1913680) { }
0 2 elsif ($x <= 22347532) { }
0 2 elsif ($x <= 295000000.0) { }
0 2 elsif ($x <= 4200000000.0) { }
0 2 elsif ($x <= 70700000000.0) { }
0 2 elsif ($x <= 1360000000000.0) { }
0 2 elsif ($x <= 41000000000000.0) { }
0 2 elsif ($x <= 920000000000000.0) { }
4267 0 4 $est > $hi ? :
0 4 $est < $lo ? :
4272 24 3 if ($n < 4294967296.0 and $k < 13) { }
2 1 elsif ($k > 11) { }
4279 27 0 unless ref $lo or ref $hi
4289 0 1 if $n < 0
4290 0 1 if $n <= 6
4305 0 2 if $n < 6
4306 0 2 if ref $n or $n > "1.27e+16"
4310 1 1 if $n > 59 and $n <= 1092
4313 1 0 $n > 480 ? :
0 1 $n > 1e+16 ? :
4325 0 2 if $n <= 8
4329 1 0 $n < 10000 ? :
1 1 $n < 1000 ? :
4331 2 0 $n < 20000 ? :
4332 2 0 $n < 20000 ? :
4339 0 1 if $n <= 8
4350 0 0 if $n >> $k == 0
4351 0 0 if $k == 0
4354 0 0 if (ref $n or $n > 18446744073709551615) { }
4362 0 0 $k < 12 ? :
0 0 $k < 7 ? :
4368 0 14 if $k == 0 or $n == 0
4369 0 14 if $n == 1
4372 0 14 if (ref $n or $n > 18446744073709551615) { }
4382 0 0 $k < 12 ? :
14 0 $k < 7 ? :
4393 0 83 if $n >> $k == 0
4395 0 83 if $k == 0
4396 0 83 if $k == 1
4413 6 77 if ($n <= 1048575) { }
74 3 elsif ($n <= 4294967295) { }
1 2 elsif ($isn64bit) { }
4421 0 83 if ($k == 2) { }
5 78 elsif ($k == 3) { }
72 6 elsif ($k == 4) { }
4422 0 0 if ($x <= 1000000000000.0) { }
4432 0 5 if ($n < 638) { }
0 5 elsif ($n < 1927) { }
3 2 elsif ($n < 500194) { }
0 2 elsif ($n <= 3184393786) { }
4444 0 2 $isn64bit ? :
4448 0 72 unless $isn64bit
4455 0 83 if $bound < 1
4463 0 165 if $n >> $k == 0
4465 0 165 if $k == 0
4466 0 165 if $k == 1
4490 94 71 if ($n <= 1048575) { }
68 3 elsif ($n <= 4294967295) { }
4497 0 165 if ($k == 2) { }
21 144 elsif ($k == 3) { }
138 6 elsif ($k == 4) { }
4503 0 21 if $n > 4294967295 and $isn64bit
4507 0 138 if ($x >= "1000000000000")
4511 138 0 if ($isn64bit)
4512 0 138 if $n > 4294967295
4513 0 138 if $x > "1000000000000"
4541 0 165 if $bound < 1
4547 0 35 if $k <= 1
4552 2 33 if ($k > $#A078843)
4553 0 2 if $n >= $A078843[-1]
4561 0 1 if $n >= 8 or $k < 2
4562 0 1 if $k == 2
4568 0 2 if $n == 0
4569 0 0 $n == 1 ? :
0 2 if $k == 0
4570 0 2 if $k == 1
4571 0 2 if $n < 8
4574 0 2 if ($r > 0)
4590 28 18 if (almost_prime_count_lower($k, $mid) < $n) { }
4597 0 12 if $n == 0
4598 0 0 $n == 1 ? :
0 12 if $k == 0
4599 0 12 if $k == 1
4600 0 12 if $n < 8
4603 0 12 if ($r > 0)
4619 28 90 if (almost_prime_count_upper($k, $mid) < $n) { }
4627 0 3 if $n == 0
4628 0 3 if $n == 1
4629 0 3 if $k == 0
4630 0 3 if $k == 1
4631 0 3 if $k == 2
4632 0 3 if $n < 8
4635 2 1 if ($r > 0)
4647 11 11 if (almost_prime_count_approx($k, $mid) < $n) { }
4666 0 10 if $rlo > $n
4667 0 10 if $rlo == $n
4672 0 10 if $hi != 0
4678 0 10 $rlo == 0 ? :
4679 0 10 if $estf <= 256
4680 0 10 if $estf > 2048
4686 10 0 if ($rmid >= $n) { }
4690 0 10 unless $rlo <= $n and $rhi >= $n
4691 0 10 if $rlo == $n
4692 0 0 $rlo == $n || $rlo < $n && $rhi > $n ? :
0 10 if $hi - $lo <= 1
4696 0 10 $n == $rhi ? :
4698 0 10 if ($mid == $lo) { }
0 10 elsif ($mid == $hi) { }
4701 0 19 unless $lo < $mid and $mid < $hi
4704 19 0 if ($rmid >= $n) { }
4706 10 9 if $rhi == $n
4712 0 9 if ($mid <= $lo) { }
0 9 elsif ($mid >= $hi) { }
4714 0 9 if ($mid == $lo) { }
0 9 elsif ($mid == $hi) { }
4715 0 9 unless $lo <= $mid and $mid <= $hi
4718 0 10 if $rlo == $n
4719 0 0 $rlo == $n || $rlo < $n && $rhi > $n ? :
0 10 if $hi - $lo <= 1
4721 0 10 unless $rlo < $n and $rhi == $n
4725 0 10 unless $rlo < $n and $rhi >= $n
4747 0 10 if ($x3 >= $hi or $x3 <= $lo or $x3 == $x1) { }
4750 0 0 if ($rx1 >= $n) { }
4756 0 10 if ($rx1 > $rx3)
4757 0 10 if ($rx1 >= $n) { }
1 9 elsif ($rx3 >= $n) { }
4763 0 10 unless $rlo < $n and $rhi >= $n
4771 11 19 if ($rmid < $n) { }
4780 0 21 if $n == 0
4781 0 21 if $n == 1
4782 0 21 if $k == 0
4783 1 20 if $k == 1
4784 1 19 if $k == 2
4785 1 18 if $n < 8
4788 8 10 if ($r > 0)
4805 0 5 if $n == 0
4806 0 5 if $n == 1
4807 0 5 if $k == 0
4813 5 25 if --$n == 0
4821 0 23 if $n <= 2
4823 0 23 if ($n < 50)
4824 0 0 if $n <= 20
4830 21 2 if $n < 647
4834 0 0 $n < 3100000000 ? :
0 0 $n < 90000000 ? :
0 0 $n < 7000000 ? :
2 0 $n < 1200000 ? :
0 2 $n < 16000 ? :
4842 2 0 if $add != 0
4848 0 23 if $n <= 2
4850 21 2 if $n < 10000
4851 2 0 if $n < "10000000000"
4857 0 6 if $n <= 2
4864 0 0 $n < 2 ? :
0 2 if $n < 11
4873 0 0 $n < 2 ? :
0 2 if $n < 11
4882 0 0 $n < 2 ? :
0 1 if $n < 11
4893 0 3 if $n < 5
4898 4595 4589 $k <= $r ? :
4905 3865 724 unless $S[$p] > $S[$p - 1]
4909 724 133639 if $v < $p2
4911 92680 40959 if $a > $r
4912 10048 123591 if $b > $r
4921 1 2 if (defined $high) { }
4926 0 3 if $high < $low
4929 0 3 if ($low <= 2 and $high >= '29505444491')
4933 0 3 if $low > $high
4939 2 0 if ($high <= '18446744073709551615' and $high > 2000000 and $high - $low > $high / 50 and not getconfig()->{'xs'})
4944 1 1 $low <= 2 ? :
4951 0 1 $xssum && $high > 50000000000000.0 ? :
4955 1 0 if $next > $high
4958 0 1 $xssum ? :
4959 1 0 if $next == $high
4967 0 0 if (defined $high) { }
4971 0 0 unless defined $fd
4974 0 0 if ($high >= $low)
4978 0 0 if $p2 > $high
4979 0 0 if ($Math::Prime::Util::_GMPfunc{'sieve_primes'}) { }
4995 6608 6970 if ($x | $y) < 4294967296
4998 0 6970 if $x >= $n
4999 0 6970 if $y >= $n
5000 1326 5644 if $x < $y
5001 5882 1088 if ($n <= 9223372036854775807) { }
5003 60472 66338 if $r >= $n
126810 134363 if ($y & 1)
5005 130317 130856 if $x >= $n
5007 2840 3042 if $r >= $n
5882 0 if ($y & 1)
5010 15831 16778 $x >= $r ? :
32609 32632 if ($y & 1)
5012 32474 32767 $x > $n - $x ? :
5014 533 555 $x >= $r ? :
1088 0 if ($y & 1)
5020 0 3436 if $x >= $n
5021 0 3436 if $y >= $n
5022 1393 2043 if ($n - $x <= $y)
5023 1277 116 if $y > $x
5035 45599 21437 if $power & 1
5037 63429 3607 if $power
5046 0 83 if $n >= $m
5047 0 83 if ($m < 4294967296) { }
5049 0 0 if $power & 1
5051 0 0 if $power
5055 2227 1567 if $power & 1
5057 3711 83 if $power
5068 0 8688 if $Math::Prime::Util::_GMPfunc{'powint'}
5069 0 8688 if $b < 0
5072 1599 7089 if ($a >= -1 and $a <= 4)
5073 0 0 $b == 0 ? :
0 1599 if $a == 0
5074 44 1555 if $a == 1
5075 0 0 $b % 2 ? :
0 1555 if $a == -1
5076 589 966 if ($a == 2)
5077 394 195 $b < 64 ? :
5079 151 815 if ($a == 4)
5080 44 107 if $b < 32
5081 107 0 if $b < 4000000000
5085 19 7885 if $b == 0
5086 30 7855 if $b == 1
5087 1462 6393 if ($b == 2)
5088 978 484 if abs $a < 4294967296
5092 3871 2522 if (not ref $a || ref $b and $b < 64)
5093 723 3148 if ($b == 3) { }
5094 536 187 if $a <= 99999
5095 52 135 if $a <= 31622776
5099 519 2629 if $r < '1000000000000000' and $r > '-1000000000000000'
5102 1400 1229 if ($r < '1000000000000000' and $r > '-1000000000000000')
5103 810 590 $b & 1 ? :
5109 232 3654 if $b == 3
5112 0 3654 $r <= 18446744073709551615 && $r >= -9223372036854775808 ? :
5119 1217 205005 if $a == 0 or $b == 0
5121 0 205005 if $Math::Prime::Util::_GMPfunc{'mulint'}
5125 172178 32827 unless (ref $r)
5126 165347 6831 if $r < '18446744073709551615' and $r > '-9223372036854775808'
5129 6 39652 $r <= 18446744073709551615 && $r >= -9223372036854775808 ? :
5136 0 53916 if $Math::Prime::Util::_GMPfunc{'addint'}
5140 21033 32883 unless (ref $r)
5141 20948 85 if $r < '18446744073709551615' and $r > '-9223372036854775808'
5144 35 32933 $r <= 18446744073709551615 && $r >= -9223372036854775808 ? :
5151 0 2913 if $Math::Prime::Util::_GMPfunc{'subint'}
5155 2149 764 unless (ref $r)
5156 2128 21 if $r < '18446744073709551615' and $r > '-9223372036854775808'
5159 40 745 $r <= 18446744073709551615 && $r >= -9223372036854775808 ? :
5165 329 1146 unless (ref $r)
5166 326 3 if $r < '18446744073709551615'
5169 0 1149 $r <= 18446744073709551615 && $r >= -9223372036854775808 ? :
5175 285 533 unless (ref $r)
5176 285 0 if $r < '18446744073709551615'
5179 3 530 $r <= 18446744073709551615 && $r >= -9223372036854775808 ? :
5190 33 21070 if $b == 1
5192 5 21065 if $a >= 9223372036854775807 || $a <= -9223372036854775808 and not ref $a
5193 983 20087 if $b >= 9223372036854775807 || $b <= -9223372036854775808 and not ref $b
5196 19 4 unless ($refa or $refb)
5200 19 0 if $a < 0 and $b > 0
5201 0 0 if $b < 0 and $a > 0
5202 0 0 if $a < 0 and $b < 0
5207 0 21051 if ($refa eq 'Math::GMPz' or $refb eq 'Math::GMPz') { }
0 21051 elsif ($refa eq 'Math::GMP' or $refb eq 'Math::GMP') { }
0 21051 elsif ($refa eq 'Math::Pari' or $refb eq 'Math::Pari') { }
5209 0 0 unless $refa eq "Math::GMPz"
5210 0 0 unless $refb eq "Math::GMPz"
5213 0 0 unless $refa eq "Math::GMP"
5214 0 0 unless $refb eq "Math::GMP"
5218 0 0 unless $refa eq "Math::Pari"
5219 0 0 unless $refb eq "Math::Pari"
5221 0 0 if $a < 0 != $b < 0
5227 54 20997 if $a < 0 != $b < 0
5228 0 21051 if $refa ne "Math::BigInt" and $refb ne "Math::BigInt"
5239 0 216 if $b == 0
5241 70 146 if (not ref $a || ref $b and $a >= 0 and $b >= 0 and $a < 9223372036854775807 and $b < 9223372036854775807) { }
5247 139 7 if ref $q and $q <= '18446744073709551615' and $q >= '-9223372036854775808'
5248 16 130 if ref $r and $r <= '18446744073709551615' and $r >= '-9223372036854775808'
5257 0 73 if $b == 0
5259 1 72 if (not ref $a || ref $b and $a >= 0 and $b >= 0 and $a < 9223372036854775807 and $b < 9223372036854775807) { }
5267 51 22 if ($r < 0 and $b > 0 or $r > 0 and $b < 0)
5269 22 29 if ref $q and $q <= '18446744073709551615' and $q >= '-9223372036854775808'
5270 43 8 if ref $r and $r <= '18446744073709551615' and $r >= '-9223372036854775808'
5278 0 14 if $b == 0
5280 1 13 if (not ref $a || ref $b and $a >= 0 and $b >= 0 and $a < 9223372036854775807 and $b < 9223372036854775807) { }
5286 7 7 if ($r != 0 and $a >= 0 == $b >= 0)
5288 3 10 if ref $q and $q <= '18446744073709551615' and $q >= '-9223372036854775808'
5289 11 2 if ref $r and $r <= '18446744073709551615' and $r >= '-9223372036854775808'
5297 0 339 if $b == 0
5299 283 56 if (not ref $a || ref $b and $a >= 0 and $b >= 0 and $a < 9223372036854775807 and $b < 9223372036854775807) { }
5305 5 334 if ($r < 0)
5306 4 1 if ($b > 0) { }
5309 42 14 if ref $q and $q <= '18446744073709551615' and $q >= '-9223372036854775808'
5310 20 36 if ref $r and $r <= '18446744073709551615' and $r >= '-9223372036854775808'
5315 282889 44 if ($_[1] > 0 and $_[0] >= 0)
5319 262086 20803 if (not ref $a || ref $b and $a < 9223372036854775807 and $b < 9223372036854775807) { }
5323 19261 1542 if ref $q and $q <= '18446744073709551615'
5335 1592 239 if (ref $b or ref $a) { }
239 0 elsif ($b < 18446744073709551615 and $a < 18446744073709551615) { }
5337 1500 92 if $r <= '18446744073709551615'
5342 0 0 if $r <= '18446744073709551615'
5348 1821 26 if ($_[1] > 0 and $_[0] >= 0) { }
2 24 elsif ($_[1] < 0 and $_[0] >= 0) { }
22 2 elsif ($_[1] > 0 and $_[0] <= 0) { }
2 0 elsif ($_[1] < 0 and $_[0] <= 0) { }
5351 0 2 if ($_[0] < '18446744073709551615' and -$_[1] < '18446744073709551615')
5353 0 0 $r == 0 ? :
5356 10 12 if (-$_[0] < '18446744073709551615' and $_[1] < '18446744073709551615')
5358 0 10 $r == 0 ? :
5361 0 2 if (-$_[0] < '18446744073709551615' and -$_[1] < '18446744073709551615')
5363 0 0 $r == 0 ? :
5369 480 4 if ($_[1] > 0 and $_[0] >= 0)
5374 467 13 if (not ref $a || ref $b and $a < 9223372036854775807 and $b < 9223372036854775807) { }
5376 228 239 if $a != $b * $q
5379 12 1 if $a != $b * $q
5380 10 3 if ref $q and $q <= '18446744073709551615'
5395 0 1669 if $n == 0
5396 1644 25 if ref $n or $n < '9223372036854775807'
5397 25 0 if ($n > 0) { }
5408 0 5 if $r == 4294967295 and ref $n eq "Math::Pari"
5409 2 1 $r > 0 ? :
2 3 $r < 0 ? :
5416 0 0 if $r == 4294967295 and ref $a eq 'Math::Pari' || ref $b eq 'Math::Pari'
5417 1 12 $r > 0 ? :
2 13 $r < 0 ? :
5423 374 991 if (not defined $k) { }
5425 0 1365 if $k < 0
5426 22 1343 if $n < 0
5428 959 384 unless (ref $n)
5429 41 896 if $n < '18446744073709551615' and $k < 64 and $n == $n << $k >> $k
5433 1 1301 $n <= 18446744073709551615 ? :
5441 11849 875 if (not defined $k) { }
5443 4 12720 if $k < 0
5444 7 12713 if $n < 0
5446 10248 2465 unless (ref $n)
5448 10008 240 $k < 64 ? :
10248 0 if $n < '18446744073709551615'
5452 100 2365 $n <= 18446744073709551615 ? :
5461 0 23 if (not defined $k) { }
5462 4 19 if $k < 0
5463 14 5 $k < 64 ? :
5472 28 45 if $n <= 1 or $k == 0
5474 11 34 if $k == 2
5475 7 27 if $k == 4
5481 1 26 if $k == 1
5482 8 18 if $k == 3
5483 4 14 if $k == 5
5486 10 4 if ($k < $n) { }
5505 5305 2697 if ($refn)
5509 1080 5305 unless ($REF)
5511 1 1079 if $x < 0
5515 1 1081 if $x < 0
5520 5726 4885 ref $_ eq $REF ? :
5523 5305 0 if ($REF eq 'Math::BigInt') { }
0 0 elsif ($REF eq 'Math::GMPz') { }
0 0 elsif ($REF eq 'Math::GMP') { }
5535 5300 5 if $gcd <= '18446744073709551615'
5540 0 19 unless @v > 0
5544 0 0 if $y == 0
0 56 if ($y <= 0)
5545 37 19 defined $lcm ? :
5553 0 4 if ($x == 0)
5554 0 4 if ($y == 0)
5556 0 4 if ($Math::Prime::Util::_GMPfunc{'gcdext'})
5565 2 2 if (abs $x < 9223372036854775807 and abs $y < 9223372036854775807) { }
5566 0 2 if ref $x
5567 0 2 if ref $y
5583 0 4 if ($g < 0)
5588 0 94 unless scalar @_
5591 0 94 if ($Math::Prime::Util::_GMPfunc{'chinese2'} and $Math::Prime::Util::GMP::VERSION >= "0.53")
5600 0 194 unless ref $aref eq "ARRAY" and scalar @$aref == 2
5605 0 194 if $n == 0
5611 0 94 if scalar @items == 1
5627 0 100 if $g < 0
5628 0 100 if $g != 1 and $sum % $g != $ai % $g
5629 61 39 if "$s" < 0
5630 39 61 if "$t" < 0
5632 39 61 if "$u" < 0
5633 61 39 if "$v" < 0
5649 0 0 unless defined $hi and defined $lo
5654 44 0 @_ ? :
44 808 if @_ <= 1
5657 0 808 if $Math::Prime::Util::_GMPfunc{'vecsum'}
5662 122 18311 if ($sum > '18446744073709551365' or $sum < '-9223372036854775558')
5665 0 122 if (ref $sum eq 'Math::Pari') { }
5667 16 106 if $sum <= '18446744073709551615' and $sum >= '-9223372036854775808'
5676 0 0 if $b <= $a
5677 0 0 if $b == $a + 1
5678 0 0 if $b == $a + 2
5684 0 1375 if $b <= $a
5685 331 1044 if $b == $a + 1
5686 501 543 if $b == $a + 2
5692 0 816 unless @_
5694 0 816 if $Math::Prime::Util::_GMPfunc{'vecprod'}
5696 118 698 if @_ == 1
5706 318 38 if ($_[0] > 0 and $_[0] <= '18446744073709551615' and $_[1] > 0 and $_[1] <= '18446744073709551615')
5710 76 242 if @_ == 0
5711 242 0 if $prod > 1
5714 333 289 if @_ == 2
5720 67 222 if ref $prod and $prod <= '18446744073709551615' and $prod >= '-9223372036854775808'
5725 0 6 unless @_
5727 4 9 if $_ < $min
5731 0 96 unless @_
5733 80 26 if $_ > $max
5740 1 0 if ref $mask eq "ARRAY"
5747 0 0 if $mask & 1
5756 0 2 unless ref $aref eq "ARRAY" and ref $bref eq "ARRAY"
5758 0 2 unless $aref->$#* == $bref->$#*
5762 0 0 unless defined $av or defined $bv
5763 0 4 unless defined $av and defined $bv
5764 0 0 if (ref $av and ref $bv and ref($av) =~ /^(ARRAY|HASH|CODE|FORMAT|IO|REGEXP)$/i || ref($bv) =~ /^(ARRAY|HASH|CODE|FORMAT|IO|REGEXP)$/i)
5767 0 0 if ref $av eq ref $bv and vecequal($av, $bv)
5773 1 3 unless "$av" eq "$bv"
5782 3 1 if $_ < $items
5785 1 3 unless defined $seen[$_]
5794 2 2 if $_ <= $items
5797 1 2 unless defined $seen[$_]
5805 1 3 if not defined $base and $n =~ s/^0b//
5806 0 4 if not defined $base and $n =~ s/^0x//
5807 1 3 if (not defined $base or $base == 10) { }
5811 0 3 if $base < 2
5815 17 4 if $p > 0
5827 1 0 unless (defined $base or defined $k)
5834 1 0 $n == 1 ? :
5837 3 0 if (defined $base) { }
5839 0 3 if $base < 2 or $base > 36
5843 1 2 if (defined $k) { }
5845 0 1 if $k > 10
5853 0 7 if ($base == 10) { }
5861 21 0 $k <= 6 ? :
5869 3 0 $n == 1 ? :
5880 24 23 if ($p % 4 == 3)
5882 6 18 unless &Mmulmod($r, $r, $p) == $a
5885 17 6 if ($p % 8 == 5)
5890 4 13 unless &Mmulmod($r, $r, $p) == $a
5895 2 4 if $p != 2 and &Mpowmod($a, &Mrshiftint($Q), $p) != 1
5903 0 2 if $t == 201 and not &Mis_prime($p)
5922 0 4 unless &Mmulmod($x, $x, $p) == $a
5930 47 50 if ($e == 1)
5931 40 7 if $a >= $p
5932 8 39 if $p == 2 or $a == 0
5934 28 11 defined $r && &Mmulmod($r, $r, $p) == $a ? :
5940 0 50 if $a % $n == 0
5942 1 49 if ($a % $pk == 0)
5945 0 1 unless defined $s
5949 0 49 if $a % $p == 0
5951 49 0 $p > 2 || $e < 5 ? :
5953 16 33 unless defined $s
5955 5 28 $p == 2 ? :
5960 32 1 &Mmulmod($r, $r, $n) == $a % $n ? :
5966 0 2 if $n <= 0
5967 0 2 if $a >= $n
5968 0 2 if $n <= 2 or $a <= 1
5969 0 2 if _is_perfect_square($a)
5977 0 6 unless defined $s
5991 0 6 if $n <= 1
5994 0 6 if $a <= 1
5996 4 2 &Mis_prime($n) ? :
5997 5 1 if (defined $r)
5998 3 2 if $n - $r < $r
5999 2 3 if ref $r and $r <= '18446744073709551615'
6013 27 35 unless ($a % $p)
6014 26 1 unless ($a % $pk)
6018 26 0 $k % 2 ? :
6023 0 1 if $a2 % $p
6031 10 25 unless defined $q
6032 24 1 if $p != 2
6033 1 0 if $k == 1
6034 0 0 if $k == 2
6047 16 43 unless @$f
6060 0 0 $n ? :
0 5 if $n <= 1
6062 2 3 &Mis_prime($n) ? :
6086 1 0 if $y != 1
6087 0 1 if $x >= $p
6103 0 1 $a == 0 ? :
6105 0 1 if $y == 0 and $A != 1
6110 0 1 if $l >= $e
6123 0 1 if $y <= 1
6135 0 0 if $y == 1
6144 0 8 if defined $refzeta
6145 0 8 if $a >= $p
6146 1 7 if $a == 0 or $a == 1 and not defined $refzeta
6149 0 7 if ($k == 2)
6151 0 0 defined $r ? :
0 0 if defined $refzeta
6161 1 6 if ($g != 1)
6164 0 1 if $r == 0
6166 0 1 if (defined $refzeta)
6178 6 1 if ($g != $k)
6182 7 0 if &Mpowmod($r, $k, $p) == $a
6183 0 0 if defined $refzeta
6191 0 6 if $a < 1 or $k < 2 or $n < 2
6193 0 6 if (&Mis_power($a, $k, \$r))
6197 3 3 if (&Mis_prime($n))
6207 5 5 if ($E == 1) { }
6213 0 10 unless defined $r and &Mpowmod($r, $k, $FE) == $A
6216 3 0 if @rootmap > 1
6219 0 3 unless defined $r and &Mpowmod($r, $k, $n) == $a % $n
6257 2 0 if defined $refzeta
6266 0 0 if $a >= $p
6268 0 0 if $p == 2 or $a == 0
6269 0 0 if $k == 2
6273 0 0 if $g == 1
6275 0 0 if &Mpowmod($a, &Mdivint($p - 1, $g), $p) != 1
6284 0 0 if $k == 2
6285 0 0 if $e == 1
6290 0 0 if $a % $n == 0
6292 0 0 if ($a % $pk == 0)
6295 0 0 defined $s ? :
6298 0 0 if $a % $p == 0
6300 0 0 $p > 2 || $e < 5 ? :
6302 0 0 unless defined $s
6304 0 0 $p == $k ? :
6310 0 0 &Mpowmod($r, $k, $n) == $a % $n ? :
6322 0 0 unless defined $s
6335 0 0 if $a < 1 or $k < 2 or $n < 2
6339 0 0 if &Mis_prime($k)
6344 0 0 unless (defined $r)
6350 0 0 unless defined $r and &Mpowmod($r, $k, $n) == $a % $n
6364 0 8 if $n <= 1
6368 1 7 if ($a == 0)
6369 0 1 $k <= 0 ? :
6371 1 6 if ($k < 0)
6373 0 1 unless defined $a and $a > 0
6376 1 6 if $k == 0 and $a != 1
6377 0 6 if $k == 0 or $a == 1
6378 0 6 if $k == 1
6383 0 6 if defined $r and $k == 2 and $n - $r < $r
6397 0 102 unless defined $inv
6412 140 4 if $a >= $p
6414 66 78 if $p == 2 or $a == 0
6418 76 2 if ($g == 1)
6424 0 2 if &Mpowmod($a, &Mdivint($p - 1, $g), $p) != 1
6427 0 2 if $p == 3
6436 0 2 if $z == 0 or &Mpowmod($r, $k, $p) != $a
6443 0 2 if $r2 != $r
6450 72 106 if $e == 1
6452 106 0 $e <= 13 && $p <= 13 || $e <= 5 && $p <= 1000 ? :
6453 106 0 $k <= 13 && $p <= 13 || $k <= 5 && $p <= 1000 ? :
6456 0 106 if ($a % $n == 0)
6464 0 106 if ($a % $pk == 0)
6476 0 106 if $a % $p == 0
6479 106 0 $p > 2 || $e < 5 ? :
6482 40 66 if ($k != $p) { }
6499 130 0 if &Mpowmod($r, $k, $n) == $a % $n
6515 13 42 if $k == 2
6521 72 72 $e == 1 ? :
6523 0 144 unless @roots2
6524 140 4 $e <= 13 && $f <= 13 ? :
6525 42 102 if (scalar @roots == 0) { }
6542 0 9 if $n == 0
6545 0 9 if $k <= 0 and $A == 0
6547 0 9 if ($k < 0)
6549 0 0 unless defined $A and $A > 0
6558 0 9 if $n <= 2 or $k == 1
6559 0 0 $A == 1 ? :
0 9 if $k == 0
6562 2 7 &Mis_prime($n) ? :
6564 6 3 if (&Mis_prime($k)) { }
6585 0 516 if ($n <= 1)
6586 0 0 if $n <= '-9223372036854775808' and not ref $n
0 0 if ($n < 0)
6587 0 0 if $n <= 1
6589 512 4 if ($n < 18446744073709551615 and $a < 18446744073709551615 and $a > -9223372036854775808) { }
6590 0 512 if $a < 0
6591 65 447 if $a >= $n
6594 1 3 if $a <= '18446744073709551615'
6601 1 1453 if ($n <= 1)
6602 1 0 if $n <= '-9223372036854775808' and not ref $n
1 0 if ($n < 0)
6603 0 1 if $n <= 1
6605 987 1 if ($n <= '18446744073709551615' and $a <= '18446744073709551615' and $b <= '18446744073709551615' and $a >= '-9223372036854775808' and $b >= '-9223372036854775808')
6606 0 987 if $a < 0
6607 0 987 if $b < 0
6608 11 976 if $a >= $n
6609 11 976 if $b >= $n
6610 59 293 $a > $b ? :
635 352 $n - $a > $b ? :
6616 0 467 if (ref $a eq "Math::Pari")
6618 122 345 $r <= 18446744073709551615 ? :
6629 1 730 if ($n <= 1)
6630 1 0 if $n <= '-9223372036854775808' and not ref $n
1 0 if ($n < 0)
6631 0 1 if $n <= 1
6633 614 1 if ($n <= '18446744073709551615' and $a <= '18446744073709551615' and $b <= '18446744073709551615' and $a >= '-9223372036854775808' and $b >= '-9223372036854775808')
6634 0 614 if $a < 0
6635 0 614 if $b < 0
6636 185 429 if $a >= $n
6637 153 461 if $b >= $n
6639 83 320 $a > $b ? :
211 403 $n - $a > $b ? :
6644 0 117 if (ref $a eq "Math::Pari")
6646 74 43 $r <= 18446744073709551615 ? :
6655 1 16363 if ($n <= 1)
6656 0 1 if $n >= 0
6657 1 0 if $n <= '-9223372036854775808' and not ref $n
6659 0 1 if $n == 1
6663 4156 12208 if ($n < '18446744073709551615')
6664 1 4155 if ($a >= '18446744073709551615' or $a < 0 or $b >= '18446744073709551615' or $b < 0)
6665 0 1 if $a >= '18446744073709551615' or $a < 0
6666 1 0 if $b >= '18446744073709551615' or $b < 0
6673 0 12208 if $Math::Prime::Util::_GMPfunc{'mulmod'}
6676 2 12206 unless ($refn)
6680 7084 5124 unless ref $a eq $refn
6681 6179 6029 unless ref $b eq $refn
6683 6761 5447 $r <= 18446744073709551615 ? :
6688 0 979 if $b < 0
6689 0 979 if $n <= 1
6692 155 824 unless ($refn)
6696 318 661 unless ref $b eq $refn
6700 0 979 if ($refn eq 'Math::GMPz') { }
0 979 elsif ($refn eq 'Math::GMP') { }
979 0 elsif ($refn eq 'Math::BigInt') { }
0 0 elsif ($refn eq 'Math::Pari') { }
6705 979 0 if $BIGINTVERSION < "1.999"
6708 0 0 unless ref $a eq $refn
6709 0 0 unless ref $b eq $refn
6710 0 0 if ($n <= 4294967295 and $b > 4294967295)
6722 0 988 if ($n <= 1)
6723 0 0 if $n <= '-9223372036854775808' and not ref $n
0 0 if ($n < 0)
6724 0 0 if $n <= 1
6726 0 0 $b > 0 ? :
0 988 if $a == 0
6728 0 988 if ($Math::Prime::Util::_GMPfunc{'powmod'})
6730 0 0 defined $r ? :
6734 1 987 if ($b < 0)
6736 0 1 unless defined $a
6737 1 0 if $b <= '-9223372036854775808' and not ref $b
6741 565 423 if ($b <= 8)
6742 14 551 if $b == 0
6743 68 483 if $b == 1
6744 217 266 if $b == 2
6746 224 0 if (not ref $n and $a <= 31622776 and $a >= -31622776)
6748 180 44 if $b == 3
6750 12 32 if $b == 4
6751 15 17 if $b == 5
6752 6 11 if $b == 6
6753 5 6 if $b == 7
6754 6 0 if $b == 8
6759 258 207 $r <= 18446744073709551615 ? :
6764 0 12556 if ($n <= 1)
6765 0 0 if $n < 0
6766 0 0 if $n <= 1
6769 2161 0 if (not ref $n and $n <= '18446744073709551615' and $a <= '18446744073709551615' and $b <= '18446744073709551615' and $c <= '18446744073709551615' and $a >= '-9223372036854775808' and $b >= '-9223372036854775808' and $c >= '-9223372036854775808')
6772 0 2161 if $a < 0
6773 0 2161 if $b < 0
6774 0 2161 if $c < 0
6779 0 10395 if $Math::Prime::Util::_GMPfunc{'muladdmod'}
6781 3 10392 unless ref $n
6782 0 10395 if (ref $n eq 'Math::Pari') { }
6783 0 0 unless ref $a eq "Math::Pari"
6784 0 0 unless ref $b eq "Math::Pari"
6786 6227 4168 unless ref $a or ref $b
6788 10243 152 unless ref $c
6790 6202 4193 $r <= 18446744073709551615 ? :
6794 0 19456 if ($n <= 1)
6795 0 0 if $n < 0
6796 0 0 if $n <= 1
6799 1275 0 if (not ref $n and $n <= '18446744073709551615' and $a <= '18446744073709551615' and $b <= '18446744073709551615' and $c <= '18446744073709551615' and $a >= '-9223372036854775808' and $b >= '-9223372036854775808' and $c >= '-9223372036854775808')
6802 0 1275 if $a < 0
6803 0 1275 if $b < 0
6804 0 1275 if $c < 0
6805 1275 0 $c < $n ? :
6809 0 18181 if $Math::Prime::Util::_GMPfunc{'mulsubmod'}
6813 3 18178 unless ref $n
6814 0 18181 if (ref $n eq 'Math::Pari') { }
6815 0 0 unless ref $a eq "Math::Pari"
6816 0 0 unless ref $b eq "Math::Pari"
6818 2947 15234 unless ref $a or ref $b
6820 17740 441 unless ref $c
6822 3285 14896 $r <= 18446744073709551615 ? :
6827 1 683 if ($n <= 1)
6828 0 1 if $n <= '-9223372036854775808' and not ref $n
1 0 if ($n < 0)
6829 0 1 if $n <= 1
6831 0 684 if $a == 0
6833 448 236 if ($n < '18446744073709551615')
6841 238 209 $t < 0 ? :
1 447 $r > 1 ? :
6851 236 0 if ($refn eq 'Math::BigInt') { }
0 0 elsif ($refn eq 'Math::GMPz') { }
0 0 elsif ($refn eq 'Math::GMP') { }
0 0 elsif ($refn eq 'Math::Pari') { }
6853 8 228 if defined $I and not $I->is_int
6857 0 0 if defined $I and $I == 0
6860 0 0 if defined $I and $I == 0
6863 0 0 defined $I && $I != 0 ? :
6866 0 0 if defined $I and not $I->is_int
6867 0 0 if defined $I
6869 7 229 if defined $I and $I <= '18446744073709551615'
6875 0 199 if ($n <= 1)
6876 0 0 if $n <= '-9223372036854775808' and not ref $n
0 0 if ($n < 0)
6877 0 0 if $n <= 1
6881 0 199 unless defined $invb
6890 0 2 if ($n <= 0)
6891 0 0 if $n == 0
6892 0 0 if $n <= '-9223372036854775808' and not ref $n
6898 2 0 if $a >= $n or $a < 0
6899 2 0 $a ? :
6905 0 5 if ($n <= 0)
6906 0 0 if $n == 0
6907 0 0 if $n <= '-9223372036854775808' and not ref $n
6910 0 5 if $a >= $n or $a < 0
6911 5 0 $a ? :
6920 918 421 if ($y < $x) { }
0 421 elsif ($x < 0) { }
6935 335 4378 if $r == 1
6936 696 3682 if ($rk == $n)
6938 142 554 if not $next and defined $refp
6939 418 278 if $next != 0
6950 147 198 if (not defined $a) { }
6951 0 345 if defined $refp and not ref $refp
6952 2 343 if abs $n <= 3 and not $a
6954 0 0 if ($Math::Prime::Util::_GMPfunc{'is_power'} and $Math::Prime::Util::GMP::VERSION >= 0.42 || $Math::Prime::Util::GMP::VERSION >= 0.28 && $n > 0)
6958 0 0 unless $k > 0
6959 0 0 if (defined $refp)
6960 0 0 unless $a
6962 0 0 if $isneg
6964 0 0 if $$refp > '18446744073709551615'
6965 0 0 if $isneg
6970 8 335 if ($a != 0)
6971 0 8 if ($a == 1)
6972 0 0 if defined $refp
6975 0 8 if $n < 0 and $a % 2 == 0
6976 3 5 if ($a == 2) { }
6977 3 0 if (_is_perfect_square($n))
6978 3 0 if defined $refp
6992 5 0 if ($a <= 40)
6993 2 3 ref $n ? :
6994 2 3 if $n32 & $rootmask[$a]
6997 3 0 if ($n >= 0) { }
6999 0 0 if defined $refp
0 3 if ($RK == $n)
7003 0 0 if defined $refp
0 0 if ($RK == $N)
7010 256 79 if $negn
7012 190 145 defined $refp ? :
7013 57 278 if $k < 2
7014 128 150 if ($negn and $k % 2 == 0)
7017 6 122 if $k < 2
7018 61 61 if defined $r
7020 125 14 $negn ? :
139 133 if defined $refp and $k > 0
7026 0 2 if $n < 0
7035 0 60 if defined $refp and not ref $refp
7036 0 60 if $n <= 1
7038 14 4 if defined $refp
18 42 if (&Mis_prime($n))
7041 13 29 if ($k)
7042 0 13 if ref $r and $r <= '18446744073709551615'
7043 0 13 unless &Mis_prime($r)
7044 12 1 if defined $refp
7053 1 1 $b % 4 == 3 ? :
2 5 if $a == 0
7054 1 1 $a % 4 == 3 ? :
2 3 if $b == 0
7062 0 4 if defined $refp and not ref $refp
7063 0 4 if $k < 3
7064 0 4 if $n < 0
7065 0 0 if defined $refp
0 4 if ($n <= 1)
7067 0 4 if ($Math::Prime::Util::_GMPfunc{'polygonal_nth'})
7069 0 0 unless $nth
7070 0 0 if defined $refp
7075 1 3 if ($k == 4)
7076 0 1 unless _is_perfect_square($n)
7077 0 1 if defined $refp
7080 1 2 if ($n <= 4294967296 and $k <= 4294967296) { }
7081 1 0 $k == 3 ? :
7082 0 1 unless _is_perfect_square($D)
7086 2 0 if ($k == 3) { }
7091 1 1 unless _is_perfect_square($D)
7095 0 2 if $D % $R != 0
7096 0 2 if defined $refp
7103 1 22 if (defined $k) { }
7106 0 0 $n == 0 ? :
0 23 if $k == 0
7107 0 23 if $k > 3
7108 0 23 if $k == 1
7110 5 18 if $n < 3
7112 1 17 if ($k == 3)
7114 0 1 if ($tz & 1) == 1
7115 0 1 unless &Mis_congruent(&Mrshiftint($n, $tz), 7, 8)
7121 6 11 if $n % 4 == 3
7125 1 6 if ($e & 1) == 1 and $f % 4 == 3
7135 0 3 if $n == 0
7136 0 3 if ($d == 0)
7137 0 0 unless _is_perfect_square($n)
7141 2 1 if (&Mis_prime($n))
7144 0 2 if &Mkronecker($negd, $n) == -1
7146 0 2 unless defined $u
7147 1 1 if $u > $n >> 1
7157 1 1 $u % $d == 0 ? :
7158 1 1 if $u and _is_perfect_square($u)
7165 1 6 if _is_perfect_square($t)
7174 0 17 if $n < 13
7177 2 14 if $n8 == 5 or $n8 == 6 or $n8 == 7
7179 1 13 unless (&Mis_square_free($n))
7183 1 1 if $e % 2 == 1
7190 2 11 if (&Mis_even($n) and &Mis_prime($ndiv2)) { }
3 8 elsif (&Mis_prime($n)) { }
7193 0 2 if $p8 == 3 or $p8 == 7
7194 1 1 if $p8 == 5 or $p % 16 == 9
7196 1 2 if $n8 == 3
7197 0 2 if $n8 == 5 or $n8 == 7
7200 1 1 if defined $r and &Mkronecker(1 + $r, $n) == -1
7203 4 4 if (scalar @factors == 2) { }
4 0 elsif (scalar @factors == 3 and $factors[0] == 2) { }
7206 1 3 if $p8 == 3 and $q8 == 3
7207 1 0 if $p8 == 1 and $q8 == 3 and kronecker($p, $q) == -1
7208 1 0 if $p8 == 3 and $q8 == 1 and kronecker($q, $p) == -1
7212 1 3 if $p8 == 5 and $q8 == 5
7213 1 0 if $p8 == 1 and $q8 == 5 and kronecker($p, $q) == -1
7214 1 0 if $p8 == 5 and $q8 == 1 and kronecker($q, $p) == -1
7220 2 2 if (&Mis_odd($n)) { }
7228 8 16 if _is_perfect_square($x)
7241 3 5 if $y == 0 or _is_perfect_square($y)
7247 2 2 $sols[0] == $sols[1] ? :
7253 0 4 if $n <= 0
7255 4 0 if (&Mis_even($n))
7258 1 3 if &Mrshiftint($m, $v) != 1
7259 0 3 if &Math::Prime::Util::hammingweight($m) != $v + 1
7264 0 0 if length $n <= 2200
7265 0 0 unless &Mis_divisible($n, 105)
7266 0 0 unless &Mis_congruent($n, 1, 12) or &Mis_congruent($n, 117, 468) or &Mis_congruent($n, 81, 324)
7277 0 507 if $k <= 1
7279 0 507 if $k < 2
7280 0 507 if $n <= 1
7282 499 8 if ($k == 2)
7284 8 491 if (not ref $n) { }
491 0 elsif (ref $n eq 'Math::BigInt') { }
0 0 elsif (ref $n eq 'Math::GMPz') { }
7285 0 8 if $n & 1
7286 2 6 if $n & 2
7287 0 6 if $n & 4
7315 1 175 if ($base == 10) { }
145 30 elsif ($base == 2) { }
27 3 elsif ($base == 16) { }
7329 0 176 if ($len >= 0 and $len != scalar @d)
7339 1 140 unless defined $base
7340 141 0 unless defined $len
7341 0 141 if $base < 2
7342 0 141 if $n == 0
7349 0 14 if $n == 0
7350 8 6 if $n < '18446744073709551615'
7351 0 6 unless ref $n
7353 0 6 if $refn eq "Math::GMPz"
7354 0 6 if $refn eq "Math::GMP"
7355 0 6 if ($BIGINTVERSION >= "1.999814")
7356 0 0 if $refn ne "Math::BigInt"
7365 0 44 unless defined $base
7366 14 30 if $base == 2 and not defined $len
7367 0 30 if $base < 2 or $base > 36
7368 30 0 unless defined $len
7371 0 30 if $len == 0 or $n == 0
7373 1 29 if ($n < '18446744073709551615')
7374 0 1 if ($base != 2 and $base != 8 and $base != 16)
7375 0 0 if $base <= 10
7379 0 1 if $base == 2
7380 0 1 if $base == 8
7381 1 0 if $base == 16
7382 0 1 if ($len > 0)
7384 0 0 if length $s < $len
7389 0 29 unless ref $n
7393 0 29 if ($refn eq 'Math::GMPz') { }
0 29 elsif ($refn eq 'Math::GMP') { }
0 29 elsif ($BIGINTVERSION >= 1.999814) { }
7398 0 0 if $refn ne "Math::BigInt"
7401 0 29 $n == 0 ? :
7402 2 27 if ($base <= 10) { }
7405 0 27 if $base > 36
7409 0 29 if ($len > 0)
7411 0 0 if length $s < $len
7418 0 93 if scalar @$digits == 0
7419 0 93 if scalar @$digits == 1
7429 189 137 if $k & 1
7439 0 93 unless defined $base
7442 77 16 if ($refr and not $refr =~ /^Math::/)
7443 0 77 unless $refr eq "ARRAY"
7451 0 16 if $r eq ""
7454 0 16 if $r =~ /[^$cmap]/i
7456 0 16 if (defined $_BIGINT and $_BIGINT =~ /^Math::(GMPz|GMP)$/) { }
16 0 elsif ($BIGINTVERSION < 1.999814) { }
7462 0 0 if ($base == 2) { }
0 0 elsif ($base == 8) { }
0 0 elsif ($base == 10) { }
0 0 elsif ($base == 16) { }
7467 0 0 if defined $_BIGINT and $_BIGINT ne "Math::BigInt"
7469 5 11 $n <= 18446744073709551615 ? :
7474 2 0 if ($s ne 0)
7475 0 2 unless $s =~ /^1[01]*\z/
7477 0 2 if $s =~ /11/
7489 48 105 if $c eq 1
7498 0 2 if $n == 0
7507 48 105 if ($fc <= $rn) { }
7522 2151 61 if $n <= '562949953421312'
7527 58 3 if ($refn eq 'Math::BigInt') { }
0 3 elsif ($refn eq 'Math::GMPz') { }
0 3 elsif ($refn eq 'Math::GMP') { }
7537 56 5 if $R <= '18446744073709551615'
7545 0 9724 if defined $refp and not ref $refp
7547 75 9649 if ($k == 1)
7548 0 75 if defined $refp
7551 5886 3763 unless (ref $n)
7552 0 5886 if ($n == 0)
7553 0 0 if defined $refp
7556 559 5327 if ($k == 2 and $n <= '562949953421312')
7558 57 502 if defined $refp
7561 675 4652 if ($k >= 64 or $n >> $k == 0)
7562 44 631 if defined $refp
7566 4605 47 $n <= 562949953421312 ? :
7567 0 4652 if ($F > $n) { }
7569 0 0 $n <= 562949953421312 ? :
7571 4605 47 $n <= 562949953421312 ? :
7572 24 4628 if ($F1 <= $n)
7577 233 4419 if defined $refp
7586 3763 0 if ($refn eq 'Math::BigInt') { }
0 0 elsif ($refn eq 'Math::GMPz') { }
0 0 elsif ($refn eq 'Math::GMP') { }
7596 3358 405 if $R <= '18446744073709551615'
7597 3076 687 if defined $refp
7603 0 4868 if $n < $b
7604 1 4867 if $b == 10
7605 4484 383 if ($n < '18446744073709551615')
7606 4479 5 if $b == 2
7607 0 5 if $b == 8
7608 0 5 if $b == 16
7611 0 388 if (length "$n" > 150) { }
7622 0 388 if ($l == "Inf" or not defined($l <=> "Inf"))
7624 0 0 if $R <= '18446744073709551615'
7629 9 379 if ($R != int $l + "1e-07" or $R != int $l - "1e-07")
7631 0 9 if ($BR > $n) { }
7 2 elsif ($BR < $n) { }
7635 0 7 if $BRB <= $n
7645 0 4868 if $b <= 1
7646 0 4868 if defined $refp and not ref $refp
7648 0 4868 if ($Math::Prime::Util::_GMPfunc{'logint'})
7650 0 0 if (defined $refp)
7653 0 0 if $r == 0
7660 1 4867 if defined $refp
7668 0 22 if $n == 0
7669 0 22 if $n > 1 and $n % 2
7675 443 443 if ($w ^= 1) { }
7685 21 1 if $gcd > 1
7686 11 11 if $n % 4 == 0
7693 1 25 if $n == 0
7694 1 24 if $n == 1
7695 2 22 if $n < 0 or $n & 1
7704 3 181 if $m == $n
7705 0 181 if $n == 0 or $m == 0 or $m > $n
7706 1 180 unless defined $type
7707 0 133 unless $type == 1 or $type == 2 or $type == 3
7708 3 178 if ($m == 1)
7709 3 0 if $type == 2
7710 0 0 if $type == 3
7711 0 0 if $n & 1
7715 0 178 if $Math::Prime::Util::_GMPfunc{'stirling'}
7718 5 173 if ($type == 3) { }
125 48 elsif ($type == 2) { }
7721 9 116 if $m == $n - 1
7728 1367 1424 if $m - $j & 1
7735 47 1 if ($n <= 21 or $m < $M) { }
7748 21 27 if is_odd($n - $m)
7755 25 119 if $b - $a == 1
7756 51 68 if $b - $a == 2
7766 1 8 if $n <= 0
7769 5 3 if $gcd > 1
7776 0 22 unless (defined $Math::BigFloat::VERSION)
7777 0 22 if $n <= 0
7783 22 0 unless defined $sprec
7784 22 0 unless defined $sprec
7785 0 22 if ($sprec <= 23 and $n > 54 or $sprec <= 30 and $n > 348 or $sprec <= 40 and $n > 2002 or $sprec <= 50 and $n > 12644)
7795 0 0 if $term->bacmp($eps) < 0
7815 0 86 if $n < 0
7816 0 86 if scalar @bases == 0
7817 0 86 if $n < 3
7820 0 86 if $a < 2
7821 0 86 if $a >= $n
7822 66 20 unless $a == 1 or &Mpowmod($a, $n - 1, $n) == 1
7830 0 1 if $n < 0
7831 0 1 if scalar @bases == 0
7832 0 1 if $n < 3
7833 0 1 if $n % 2 == 0
7836 0 1 if $a < 2
7837 0 1 if $a >= $n
7839 0 1 if $j == 0
7840 0 1 $j > 0 ? :
7841 0 1 unless &Mpowmod($a, $n - 1 >> 1, $n) == $j
7849 0 1 if $n < 0
7850 0 1 if $n < 4
7851 0 1 if $n % 2 == 0
7855 0 1 if ($ap == 1)
7856 1 0 if ($ap == $n - 1)
7862 0 3730 if $n < 0
7863 0 3730 if $n < 4
7864 0 3730 if $n % 2 == 0
7866 449 3281 if (ref $n) { }
7868 449 0 unless (defined $nm1)
7874 81 368 if $x == 1 or $x == $nm1
7877 0 363 if $x == 1
7878 41 322 if $x == $nm1
7883 3281 0 unless (defined $nm1)
7893 3225 56 if ($n < 4294967296) { }
7895 31 3194 if $x == 1 or $x == $nm1
7898 3 3809 if $x == 1
7899 314 3495 if $x == $n - 1
7903 23 33 if $x == 1 or $x == $nm1
7905 6 33 $x < 4294967296 ? :
7906 0 39 if $x == 1
7907 18 21 if $x == $n - 1
7917 0 3313 if $n < 0
7918 1 3312 if scalar @bases == 0
7920 4 3308 if $n < 4
7921 0 3308 if $n % 2 == 0
7925 0 3733 if $a < 2
7926 1 3732 if $a >= $n
7927 1 3732 if $a <= 1 or $a == $n - 1
7928 3237 495 if ($a == 2)
7929 2886 351 unless _miller_rabin_2($n)
7934 8 414 if scalar @newbases == 0
7937 37 377 if (ref $n) { }
7945 39 30 if $x == 1 or $x == $nm1
7948 0 26 if $x == 1
7949 5 21 if $x == $nm1
7951 25 5 if $x != $nm1
7963 363 14 if ($n < 4294967296) { }
7966 53 329 if $x == 1 or $x == $n - 1
7969 1 959 if $x == 1
7970 323 636 if $x == $n - 1
7972 5 323 if $x != $n - 1
7977 7 20 if $x == 1 or $x == $n - 1
7979 2 15 $x < 4294967296 ? :
7980 0 17 if $x == 1
7981 13 4 if $x == $n - 1
7983 7 13 if $x != $n - 1
7996 0 0 abs $a == 1 ? :
0 829 if $b == 0
7998 4 825 if ($b % 2 == 0)
7999 2 2 if $a % 2 == 0
8002 2 0 if $v % 2 == 1 and $a % 8 == 3 || $a % 8 == 5
8004 0 827 if ($b < 0)
8006 0 0 if $a < 0
8008 7 4 if $b % 4 == 3
11 816 if ($a < 0)
8009 1 826 if ref $b and $b <= '18446744073709551615'
8010 0 827 if ref $a and $a <= '18446744073709551615'
8013 618 770 if ($a % 2 == 0)
8016 238 138 if $v % 2 == 1 and $b % 8 == 3 || $b % 8 == 5
8018 161 1227 if $a % 4 == 3 and $b % 4 == 3
8021 300 1076 if $a <= '18446744073709551615' and $b <= '18446744073709551615' and ref $a and ref $b
8024 526 1 $b == 1 ? :
8034 0 4 if $n <= 2
8035 2 2 if $a >= $n or $a < 0
8036 0 4 if $a <= 1
8040 5 6 if $e == 1 and &Mkronecker($a, $p) == 1
8041 2 4 unless defined _sqrtmod_prime_power($a, $p, $e)
8048 13 0 $k == $n ? :
13 249 if $k >= $n
8049 99 150 if $k > $n >> 1
8051 459 2490 if ($r >= int 18446744073709551615 / $n) { }
8055 193 266 if $r >= int '18446744073709551615' / $nr
8074 0 0 if $Math::Prime::Util::_GMPfunc{'binomial'} and $Math::Prime::Util::GMP::VERSION >= 0.53 || $n >= 0 && $k >= 0 && $n < 4294967296 && $k < 4294967296
8078 0 206 if $k < 0 or $k > $n
206 66 if ($n >= 0) { }
8079 0 66 if $k < 0 and $k > $n
8080 1 271 if $k < 0
8088 262 10 unless (ref $n)
8089 196 66 if ($n >= 0) { }
8091 68 128 if $r > 0 and $r eq int $r
8094 1 65 if ($r > 0 and $r eq int $r)
8095 0 1 unless $k & 1
8102 0 203 if $k == 0
8103 1 202 if $k == 1 or $k == $n - 1
8106 193 9 unless ref $n
8110 65 137 if ($n < 0)
8112 32 33 if $k & 1
8115 0 202 if (defined $Math::GMPz::VERSION) { }
0 202 elsif (defined $Math::GMP::VERSION and $Math::GMP::VERSION >= 2.23 and $n < 4294967296) { }
9 193 elsif ($n > 18446744073709551615 and $k < 100) { }
8128 32 170 if $negate
8129 202 0 defined $_BIGINT && $_BIGINT eq ref $R ? :
0 202 $R <= 18446744073709551615 && $R >= -9223372036854775808 ? :
8139 0 8 if $m <= 1
8142 0 8 if $Math::Prime::Util::_GMPfunc{'binomialmod'}
8145 0 0 if ($Math::Prime::Util::_GMPfunc{'binomial'} and $Math::Prime::Util::_GMPfunc{'modint'})
8146 0 0 if ($Math::Prime::Util::GMP::VERSION >= "0.53" or $n >= 0 and $k >= 0 and $n < 4294967296 and $k < 4294967296)
8151 1 7 if $k == 0 or $k == $n
8152 0 7 if $n >= 0 and $k < 0 || $k > $n
8153 0 0 if $n < 0 and ($k < 0 and $k > $n)
8154 0 7 if $m == 2
8169 0 0 $m == 0 ? :
0 16 if ($m <= 1)
8170 0 16 if $n >= 0 and $m > $n
8171 16 0 if $m < 250
8189 36 352 if $n <= 12
8190 0 352 if ref $n eq "Math::GMP"
8191 0 352 if (ref $n eq "Math::GMPz")
8193 352 0 unless ("Math::BigInt"->config->{'lib'} =~ /GMP|Pari/)
8196 0 352 if (defined $Math::GMPz::VERSION) { }
0 352 elsif (defined $Math::GMP::VERSION) { }
0 352 elsif (defined &Math::Prime::Util::GMP::factorial and getconfig()->{'gmp'}) { }
8203 0 352 if defined $r
8207 0 352 if $r <= '18446744073709551615'
8215 0 4 if $m <= 1
8218 0 4 if $Math::Prime::Util::_GMPfunc{'factorialmod'} and $n < '18446744073709551615'
8220 0 4 if $n >= $m or $m == 1
8222 0 4 if $n <= 10
8227 0 4 if $m_prime and $n > &Mrshiftint($m)
8228 0 0 $n == 0 ? :
0 4 if $n < 2
8230 2 2 if ($n > 100 and not $m_prime)
8234 12 0 if $pk > $maxpk
8236 1 1 if $n >= $maxpk
8253 0 3 if ($n != $N and $F != 0)
8254 0 0 unless $n & 1
8264 0 1 $n == 0 ? :
1 5 if ($n <= 3)
8268 92 94 if ($k & 1) { }
8294 16 0 $n < 500 ? :
8296 16 0 if defined $_fubinis->[$n]
8314 0 27 unless $num == 1 or $non_reduce_ok
8322 3 8 if (@CF == 1) { }
2 6 elsif ($CF[1] == 1) { }
8338 5 11 $num >= 0 ? :
8342 0 18 unless @_
8430 1 2 if (defined $k)
8432 0 1 if $k >= $len
8442 1 1 unless wantarray
8459 0 1 unless ref $frac eq "ARRAY"
8463 0 1 if $p >= $q
8465 0 1 if $g != 1
8474 0 2 unless ref $frac eq "ARRAY"
8479 0 2 if $p == 0
8482 0 2 if $g != 1
8501 16 244 if $n <= 4
8503 110 134 if (ref $n) { }
8504 75 35 if 1 << &Mmodint($n, 32) & 4261215724
8506 2 33 if &Mmulint($sq, $sq) == $n
8508 83 51 if 1 << ($n & 31) & 4261215724
8509 44 7 $n < 562949953421312 ? :
8510 17 34 if $sq * $sq == $n
8520 0 22 if $n <= 1
8521 13 9 if $a < 0 or $a >= $n
8522 5 17 if $n <= 4
8523 1 16 if $a <= 1
8526 0 16 if $Math::Prime::Util::_GMPfunc{'is_primitive_root'}
8530 2 14 if (&Mis_even($n))
8531 0 2 if $n % 4 == 0
8532 0 2 if &Mis_even($a)
8535 1 15 if &Mgcd($a, $n) != 1
8536 1 14 if _is_perfect_square($a)
8540 0 14 unless $k
8543 0 14 if $k > 1 and &Mpowmod($a, $phi, &Mmulint($p, $p)) == 1
8545 1 13 if &Mkronecker($a, $n) != -1
8546 0 13 if $phi % 3 == 0 and &Mpowmod($a, &Mdivint($phi, 3), $n) == 1
8547 0 13 if $phi % 5 == 0 and &Mpowmod($a, &Mdivint($phi, 5), $n) == 1
8550 0 39 if $fp > 5 and &Mpowmod($a, &Mdivint($phi, $fp), $n) == 1
8558 0 6 if $n <= 1
8560 0 6 if $a <= 0
8561 0 6 if $a == 1
8564 0 6 if $Math::Prime::Util::_GMPfunc{'znorder'}
8566 2 4 if &Mgcd($a, $n) > 1
8573 10 2 $e == 1 ? :
8575 1 11 if $amod <= 1
8578 9 2 $e == 1 ? :
8581 11 0 if ($phi < "1.84467440737096e+19")
8584 11 75 if (&Mpowmod($amod, $d, $pe) == 1)
8590 0 11 unless $found
8601 0 0 if $enum++ >= $ei
8613 0 3 if not defined $limit or $limit > $p
8615 3 0 if ($limit < 1000000000)
8618 2 213 if $t == $a
8627 0 0 if $t == $a
8636 0 1 unless defined $invg
8639 0 1 $N > 4000000 ? :
8647 0 1 if $_verbose > 1
8650 86 0 if ($m <= $N)
8652 0 86 if (defined $r)
8653 0 0 if $_verbose
8659 0 86 if ($am == $a)
8660 0 0 if $_verbose
8667 1 85 if (defined $r)
8668 0 1 if $_verbose
8683 0 3 if $n <= 1
8686 0 3 if $a == 1 or $g == 0 or $n < 2
8693 1 2 if ($x == 0)
8696 0 1 if ref $x and $x <= '18446744073709551615'
8697 1 0 if $x > 0 and &Mpowmod($g, $x, $n) == $a
8698 0 0 if $x == 0 and $_verbose
8699 0 0 if $x > 0 and $_verbose > 1
8702 0 2 if ref $x and $x <= '18446744073709551615'
8703 0 2 $x == 0 ? :
8709 2 10 if $n <= 4
8710 1 9 if $n % 4 == 0
8713 3 6 if $iseven
8717 1 8 if $k < 1
8718 0 8 if $p == 3 and $iseven
8722 4 4 $ispow ? :
8729 15 112 $iseven ? :
8730 0 127 if $a >= $p
8731 5 119 if $a == 4 or $a == 8 or $a == 9
8732 82 37 if &Mkronecker($a, $p) != -1
8733 29 8 if &Mvecany(sub { &Mpowmod($a, $_, $p) == 1; } , @phidivfac)
8734 8 0 unless $ispow and &Mpowmod($a, $phi, $psquared) == 1
8741 0 3 if $n <= 2
8743 0 3 if &Mkronecker(2, $n) == -1
8745 2 1 if (&Mis_prime($n)) { }
8747 2 12 if &Mkronecker($a, $n) == -1
8750 1 0 if ($n % 2 == 0)
8753 1 0 if $n == 1 or $e >= 2
8755 0 0 unless $n % 3 and $n % 5 and $n % 11 and $n % 13 and $n % 19
8760 0 0 if $a < $p and &Mkronecker($a, $p) == -1
8778 0 21 if $gcd > 1 and $gcd != $n
8780 8 13 if $j == -1
8782 0 13 if $d > 4000000000
8793 112 50 unless defined $increment
8794 0 162 if $increment < 1
8799 0 382 if $gcd > 1 and $gcd != $n
8800 162 220 if &Mkronecker($D, $n) == -1
8802 0 220 if $P > 65535
8812 0 0 if $n < 1
8813 0 0 if $k < 0
8814 0 0 if $n == 1
8816 0 0 if ($Math::Prime::Util::_GMPfunc{'lucas_sequence'} and $Math::Prime::Util::GMP::VERSION >= "0.3" and not ref $P and not ref $Q)
8828 0 80 if $k < 0
8829 0 80 if $k == 0
8831 0 80 if ($Math::Prime::Util::_GMPfunc{'lucasuv'} and $Math::Prime::Util::GMP::VERSION >= "0.53")
8849 205 189 if ($bit) { }
8871 17 63 if $Uh <= '18446744073709551615' and $Uh >= '-9223372036854775808'
8872 14 66 if $Vl <= '18446744073709551615' and $Vl >= '-9223372036854775808'
8882 0 146 if $n == 0
8883 0 146 if $n == 1
8884 0 146 if $k == 0
8886 0 146 if ($Math::Prime::Util::_GMPfunc{'lucasuvmod'} and $Math::Prime::Util::GMP::VERSION >= "0.53")
8892 0 146 if $P < 0 or $P >= $n
8893 16 130 if $Q < 0 or $Q >= $n
8896 0 146 if ($D == 0)
8898 0 0 if ($S)
8912 113 33 if ($Q == 1 and $invD) { }
13 20 elsif ($nisodd and $Q == 1 || $Q == $n - 1) { }
11 9 elsif ($nisodd) { }
8916 3489 4631 if ($bit) { }
8934 51 73 $qs ? :
8936 70 54 if ($bit)
8938 0 70 !$ps ? :
8939 18 52 if (&Mis_odd($U)) { }
8944 0 70 !$ps ? :
8945 18 52 if (&Mis_odd($V)) { }
8960 130 129 if ($bit)
8963 54 76 if (&Mis_odd($U)) { }
8969 66 64 if (&Mis_odd($V)) { }
8984 138 109 if ($bit) { }
9013 0 27 if $Math::Prime::Util::_GMPfunc{'lucasu'}
9018 0 27 if $Math::Prime::Util::_GMPfunc{'lucasv'}
9024 0 15 if $Math::Prime::Util::_GMPfunc{'lucasumod'}
9030 0 9 if $Math::Prime::Util::_GMPfunc{'lucasvmod'}
9035 0 9 if $n == 0
9037 6 3 if $Q != 1
9045 31 43 if ($bit) { }
9062 0 15 if $e == 0
9063 3 12 if $p == 2 and $e < 32
9064 0 12 if $p == 2
9067 3 9 unless (defined $k)
9073 6 2 if &Mlucasumod(1, $p - 1, $rk, $p) != 0
9079 7 5 if $e > 1
9085 0 4 if $n < 0
9086 0 4 if $n <= 10
9092 4 3 if &Mlucasumod(1, -1, &Msub1int($ret), $n) == 1
9100 0 4 if $n < 4
9101 0 4 if $n % 2 == 0 or _is_perfect_square($n)
9104 0 4 if $D == 0
9105 0 4 if $D != $P * $P - 4 * $Q
9108 4 0 $U == 0 ? :
9114 0 4 if $n < 4
9115 0 4 if $n % 2 == 0 or _is_perfect_square($n)
9118 0 4 if $D == 0
9119 0 4 if $D != $P * $P - 4 * $Q
9128 2 2 if $U == 0
9132 2 5 if $V == 0
9133 5 0 if ($r < $s - 1)
9144 0 112 if $n < 4
9145 0 112 if $n % 2 == 0 or _is_perfect_square($n)
9148 0 112 if $D == 0
9149 0 112 if $D != $P * $P - 4 * $Q
9159 60 0 if $U == 0 and $V == 2 || $V == &Msubint($n, 2)
9161 48 1169 if $V == 0
9169 9 41 if (defined $incr) { }
9171 0 9 if $incr < 1 or $incr > 256
9176 0 50 if $n < 4
9177 0 50 if $n % 2 == 0 or _is_perfect_square($n)
9180 0 50 if $D == 0
9181 0 50 if $D != $P * $P - 4 * $Q
9192 1197 947 if ($bit) { }
9200 33 17 if $V == 2 or &Msubint($n, $V) == 2
9202 14 46 if $V == 0
9210 0 1 if $n < 4
9211 0 1 unless $n % 2
9212 0 1 if _is_perfect_square($n)
9217 1 0 if ($n % 4 == 3) { }
0 0 elsif ($n % 8 == 5) { }
9225 0 1 if $k == 0 or $k == 2 and not $n % 3
9227 1 0 $k == 2 ? :
9230 18 11 if ($d % 2 == 1)
9235 28 1 if ($d != 0)
9240 1 0 $ra == $ea && $rb == $n - 1 ? :
9245 0 1 if $n < 4
9246 0 1 unless $n % 2
9249 1 0 if ($n % 4 == 3) { }
9253 0 0 if $a == 2 or $a == 4 or $a == 7 or $a == 8 or $a == 10 or $a == 14 or $a == 16 or $a == 18
9255 0 0 if $j == -1
9256 0 0 if $j == 0 or $a == 20 and _is_perfect_square($n)
9260 0 1 if $temp1 != 1 and $temp1 != $n
9269 0 28 if $a != 0
9275 17 11 if (substr $np1string, $bit, 1)
9276 17 0 if ($a == 0) { }
9284 1 0 $s == 0 && $t == $temp1 ? :
9290 0 2 if $n <= 1
9302 29 25 if (shift @nbin) { }
9314 1 1 if (defined $restrict) { }
9316 0 2 if $n < 4
9317 0 2 if $restrict > 2 and $n % 2 == 0
9320 0 2 unless $S[4] == 0
9321 1 1 if $restrict == 0
9322 0 1 unless $S[1] == &Msub1int($n)
9323 0 1 if $restrict == 1
9325 0 1 if ($j == -1) { }
9330 0 0 if $S[0] == $A and $S[2] == $B and $S[3] == $B and $S[5] == $C and $B != 3 and &Mmulsubmod($B2, $B, $B, $n) == 1
9332 0 0 if $j == 0 and $n != 23 and $restrict > 2
9333 1 0 if $S[0] == 1 and $S[2] == 3 and $S[3] == 3 and $S[5] == 2
9334 0 0 if $S[0] == 0 and $S[5] == $n - 1 and $S[2] != $S[3] and &Maddmod($S[2], $S[3], $n) == $n - 3 and &Mmulmod(&Msubmod($S[2], $S[3], $n), &Msubmod($S[2], $S[3], $n), $n) == $n - 23 % $n
9344 3 6 if ($mod < $n)
9346 0 3 if ($NP & 1) { }
9347 0 0 $mod * $NP == $n ? :
9356 3 3 $m & 1 ? :
9360 0 11 if $n % 2
9365 0 3 if $n < 4
9366 0 3 unless $n & 1
9370 1 0 if (@f == 2 and is_prime($f[1]) and $f[0] != $f[1])
9372 0 1 if 2 * $p + 1 >= $q
9374 1 0 unless _catgamma($q, $p) == 1 and _catgamma($p, $q) == 1
9376 2 0 if (is_prime($f[-1]))
9378 0 4 if _catvtest($n - 1, $F)
9382 2 0 _catgamma($n, $n) == 1 ? :
9387 1 0 unless defined $P and defined $Q
9388 0 1 if $n < 4
9391 0 1 if &Mis_even($n)
9394 1 0 if ($P == 0 and $Q == 0) { }
9398 0 1 if $P == 3
9400 0 1 $D >= 0 ? :
9401 0 1 if $P >= $n or $Du >= $n
9403 0 1 if $k == 0
9404 0 1 if $P == 10001 and _is_perfect_square($n)
9408 0 0 $D >= 0 ? :
9409 0 0 if _is_perfect_square($Du)
9411 0 0 &Mis_prime($n) ? :
0 1 if $n <= $Du or $n <= abs $Q or $n <= abs $P
9412 0 1 if &Mgcd(abs $P * $Q * $D, $n) > 1
9414 0 1 if ($k == 0)
9416 0 0 if $k == 0
9418 0 0 $Q >= 0 ? :
0 0 $k == 1 ? :
9422 0 1 if $U == 0 and $V == $Vcomp
9438 2 1 if exists $_mersenne_primes{$p}
9439 1 0 if $p < 79711549
9442 0 0 if $p == 2
9443 0 0 unless is_prob_prime($p)
9444 0 0 if $p > 3 and $p % 4 == 3 and $p < '9223372036854775807' and is_prob_prime($p * 2 + 1)
9449 0 0 if $Math::Prime::Util::_GMPfunc{'lucasuvmod'}
9461 0 0 unless scalar @poly
9462 0 0 if $refn
9483 0 0 ref $n ? :
9489 0 0 unless $px_at_ix
9506 0 0 if $p % 2 != 0
9508 0 0 if $p
9519 0 0 if scalar grep({$_;} @$pp)
9535 0 208 if $n < $k
9551 0 52 if $d > $r - 2
9552 0 52 if $i > $d
9553 0 52 if $j > $r - 2 - $d
9560 3 7 if $n < 2 or &Mis_power($n)
9561 1 6 if $n == 2
9563 5 1 if ($n > 11)
9564 1 4 if &Mis_divisible($n, 2, 3, 5, 7, 11)
9571 0 5 $log2n > 32 ? :
9572 0 5 $log2n > 32 ? :
9574 5 0 $r0 < 2 ? :
9585 11 27 if (not _bern41_acceptable($n, $r, $s)) { }
9589 0 5 unless _bern41_acceptable($n, $r, $s)
9595 0 5 if $_verbose >= 2
9598 2 3 if @f >= 2
9600 3 0 if &Mmulint($slim, $slim) >= $n
9603 0 0 if &Mpowmod($a, $n - 1, $n) != 1
9606 0 0 if ($n < 4294967295) { }
9607 0 0 if ref $n
9612 0 0 if $_verbose
9613 0 0 if $_verbose > 1
9615 0 0 unless _test_anr($a, $n, $r)
9616 0 0 if $_verbose > 1
9618 0 0 if $_verbose > 1
9632 3092 552 unless wantarray
9638 0 0 $_[0] == 1 ? :
0 30 if $_[0] < 4
9641 14 16 if (not ref $_[0]) { }
9646 0 16 if (&Mgcd($_[0], 30) != 1)
9653 0 30 if ($_[0] > 1 and _is_prime7($_[0]))
9667 417 660 unless &Mis_divisible($n, $f)
9687 4407 0 if defined $limit
9689 0 1 $n == 1 ? :
1 4406 if $n < 4
9690 0 4406 if defined $limit and $limit < 2
9692 0 4406 if ($Math::Prime::Util::_GMPfunc{'trial_factor'} and $Math::Prime::Util::GMP::VERSION >= "0.22")
9696 0 0 defined $limit ? :
9700 0 0 if @f == 1
9701 0 0 if @f <= 1
9706 0 0 ref $_[0] ? :
9713 4308 98 if ($n <= 4294967295)
9715 4284 24 if not defined $limit or $limit > $sqrtn
9717 2095 2213 if ($limit >= 2 and $n % 2 == 0)
9720 2089 6 if $sqrtn < $limit
9723 3970 23058 if $n == 1 or $p > $limit
9724 3445 19613 if ($n % $p == 0)
9727 3433 12 if $sqrtn < $limit
9730 352 3956 if $n == 1
9731 3705 251 if $limit < 59
9733 0 251 if $limit > $_primes_small[-1]
9737 247 13753 if $p > $limit
9738 61 13692 if ($n % $p == 0)
9740 4 57 if $n == 1
9742 57 0 if $sqrtn < $limit
9745 247 4 if $n > 1
9750 5 93 if (not ref $n) { }
93 0 elsif (ref $n eq 'Math::BigInt') { }
0 0 elsif ($n % 2 == 0) { }
9757 45 48 if ($n->is_even)
9761 45 48 if ($k > 0)
9764 0 0 if ($k > 0)
9768 0 98 if not defined $limit or $limit * $limit > $n
9771 1 97 if $_primes_small[-1] < 100000 and $limit > $_primes_small[-1]
9777 88 10 if (ref $n eq "Math::BigInt")
9782 4209 488 $f1 <= 5581 ? :
9784 4489 208 if $g->is_one
9786 0 208 if $G >= '18446744073709551615'
9787 106 102 unless $G % $f1
9788 119 89 unless $G % $f2
9789 110 98 unless $G % $f3
9790 82 126 unless $G % $f4
9791 7 201 if ($limit * $limit >= $n)
9793 7 0 if $limit > $sqrtn
9795 68 140 unless ref $n
9798 7 81 if $n == 1
9799 0 81 $I > $#_primes_small ? :
9800 19 62 if $f > $limit
9804 2 70 if (ref $n)
9807 2 6 if $f > $limit
9809 6 0 if $n % $f
9811 0 0 if ($limit * $limit >= $n)
9813 0 0 if $limit > $sqrtn
9815 0 0 unless ref $n
9817 0 2 if $n == 1
9818 0 2 $I > $#_primes_small ? :
9819 2 0 if $f > $limit
9823 0 70 if (ref $n)
9830 0 0 if ($f <= $limit and not $n % $f)
9832 0 0 if $n == 1
9833 0 0 if ($limit * $limit >= $n)
9835 0 0 if $limit > $sqrtn
9840 0 0 if $n > 1
9847 68 32548 if $p > $limit
9848 186 32362 if ($n % $p == 0)
9850 2 184 if $n == 1
9852 48 136 if $newlim < $limit
9855 2 68 if $n == 1
9858 0 68 if ($_primes_small[-1] < $limit)
9859 0 0 $_primes_small[-1] % 6 == 1 ? :
9862 0 0 if ($n % $p == 0)
9864 0 0 if $n == 1
9866 0 0 if $newlim < $limit
9871 68 0 if $n > 1
9903 118 4376 if ($n < 4)
9904 13 105 $n == 1 ? :
9908 0 4376 if ($Math::Prime::Util::_GMPfunc{'factor'})
9910 0 0 ref $_[0] ? :
9913 80 4296 if ref $n
9920 4313 63 if $factors[-1] < $lim * $lim
9927 0 97 if ref $n and $n <= '18446744073709551615'
9933 34 68 if scalar @ftry >= 2
9934 0 68 if getconfig()->{'verbose'} > 1
9937 34 0 if (scalar @ftry > 1) { }
9940 0 34 if ref $n and $n <= '18446744073709551615'
9950 97 0 if $n != 1
9957 0 61 if ($f == 1 or $f == $n) { }
9961 0 61 unless &Mmulint($f, $f2) == $n
9962 5 56 if $f > $f2
9965 0 61 if getconfig()->{'verbose'} > 0
9980 34 0 unless $k > 1
9981 0 0 if getconfig()->{'verbose'} > 0
9988 0 5 if (defined $rounds) { }
9990 0 5 if (defined $pa) { }
9994 5 0 unless ($skipbasic)
9996 0 5 if $n < 4
10001 3 2 if (ref $n or $n >= 4294967296) { }
10011 46 50 $U > $V ? :
10015 0 3 if $f == 1
10016 1 2 if ($f == $n)
10022 0 3 $U > $V ? :
10024 1 2 if $f != 1
10026 0 1 if $f == 1 or $f == $n
10041 39 25 $U > $V ? :
10045 0 2 if $f == 1
10046 1 1 if ($f == $n)
10052 1 1 $U > $V ? :
10054 1 1 if $f != 1
10056 0 1 if $f == 1 or $f == $n
10069 35 5 if (defined $rounds) { }
10071 35 5 if (defined $pa) { }
10075 6 34 unless ($skipbasic)
10077 0 6 if $n < 4
10082 37 3 if (ref $n or $n >= 4294967296) { }
10090 0 317 $r > $rounds ? :
10092 605 291 $rleft > $inner ? :
10098 12538 11409 $Xi > $Xm ? :
10103 37 859 unless $f == 1
10105 280 37 if ($f == 1)
10110 1 36 if ($f == $n)
10114 2 5 $Xi > $Xm ? :
10116 0 1 if $f == 1 or $f == $n
10127 0 416 if $Xi >= $n
10128 191 225 $Xi > $Xm ? :
10129 3 413 if $f != 1 and $f != $n
10130 16 397 if ($i & $i - 1) == 0
10141 5 3 if defined $B1
10142 5 3 if defined $B2
10145 8 0 unless ($skipbasic)
10147 0 8 if $n < 4
10152 1 7 unless (ref $n)
10155 1 0 if not defined $B1 or $B1 > $sqrtn
10161 1 0 if $pc_end > $B1
10164 2 0 if ($q <= $sqrtb1)
10169 0 2 if ($pa == 0)
10171 1 1 if $f != 1
10173 0 0 if $pc_end >= $B1
10180 2 5 unless (defined $B1)
10186 2 0 if (scalar @nf > 1)
10194 0 5 unless defined $B2
10196 0 5 if not ref $n or defined $_BIGINT and $_BIGINT ne ref $n
10207 5 0 if $pc_end > $B1
10213 51 3169 if ($j++ % 64 == 0)
10214 0 51 if $pc_beg > 2 and ($j - 1) % 256
10217 0 51 if ($pa == 0)
10219 1 50 if $f == $n
10220 1 49 unless $f == 1
10226 4 0 if $f != 1 or $pc_end >= $B1
10230 0 4 if ($pa == 0)
10232 1 3 if ($f == $n)
10240 0 4 if ($f == $n)
10241 1 3 if $f != 1
10246 3 1 if ($f == 1 and $B2 > $B1)
10258 3 0 if $pc_end > $B2
10264 3 1021 unless defined $precomp_bm[$qdiff]
10267 0 1024 if ($pa == 0)
10269 8 1016 if ($j++ % 128 == 0)
10272 3 5 if $f != 1
10275 3 0 if $f != 1 or $pc_end >= $B2
10286 0 1 if defined $B1
10287 0 1 if defined $initx
10290 1 0 unless ($skipbasic)
10292 0 1 if $n < 4
10295 0 1 defined $initx && $initx > 0 ? :
10296 0 1 defined $B1 && $B1 > 0 ? :
10297 1 0 if $B > &Msqrtint($n)
10305 2 0 if ($p <= $sqrtB) { }
10312 1 1 if $f != 1
10320 0 3 if (defined $rounds) { }
10322 3 0 if not defined $startrounds or $startrounds < 1
10325 0 3 if $n < 4
10327 2 1 if (ref $n) { }
10331 0 2 if (&Mmulint($s, $s) == $ni)
10338 2 0 if (&Mis_power($m, 2, \my $f))
10339 2 0 $s > $f ? :
10346 3 0 if $s * $s != $n * $i
10347 3 0 $s < 4294967296 ? :
10350 2 0 unless $mc == 0 or $mc == 1 or $mc == 4 or $mc == 9 or $mc == 16 or $mc == 17 or $mc == 25
10352 0 1 unless $f * $f == $m
10364 0 2 if (defined $rounds) { }
10368 0 2 if $n < 4
10370 1 1 if (ref $n) { }
10372 0 1 if &Mmulint($pa, $pa) == $n
10377 1 0 if (&Mis_power($b2, 2, \my $s))
10386 0 1 if $pa * $pa == $n
10392 1 1 if ($mc == 0 or $mc == 1 or $mc == 4 or $mc == 9 or $mc == 16 or $mc == 17 or $mc == 25)
10394 1 0 if ($s * $s == $b2)
10413 0 5 if $n < 4
10415 0 5 if ($Math::Prime::Util::_GMPfunc{'ecm_factor'})
10416 0 0 unless defined $B1
10417 0 0 unless defined $ncurves
10419 0 0 if (@ef > 1)
10429 1 4 unless defined $ncurves
10431 1 4 unless (defined $B1)
10437 1 0 if (scalar @nf > 1)
10446 0 4 unless defined $B2
10485 4 7 if $q > $sqrt_b1
10490 4 0 $B2 > $B1 ? :
10501 4 0 if $f == 1
10502 0 4 if $f == $n
10503 0 4 if $f != 1
10515 1 24 if ($i++ % 32 == 0)
10517 1 0 if $f != 1
10521 0 4 if $f == $n
10523 3 1 if ($f == 1 and $B2 > $B1)
10524 2 1 if $D % 2
10530 0 3 if ($f != 1)
10531 0 0 if $f == $n
10541 77 79 if ($i % 2) { }
10549 1 155 if $f != 1
10553 1 2 if ($f != 1)
10554 0 1 if $f == $n
10562 35 2 if ($m != 1)
10566 0 35 if $f != 1
10570 0 35 if $f != 1
10572 37 0 if ($m + $D > $B1)
10573 5682 2970 if $_ >= $m - $D
10575 37 157 if $i >= $m
10579 169 166 unless $i > $m
10580 65 101 if $i > $m + $m or is_prime($m + $m - $i)
10585 2 35 if $f != 1
10591 0 3 if $f == $n
10592 3 0 if ($f != 1)
10605 1 39 if (defined $k) { }
10607 0 1 if $k > $n
10612 0 40 unless (wantarray)
10614 0 0 if $k >= $n
10619 0 40 if $n == 0 or $k == 0
10620 4 36 if $n == 1 or $k == 1
10623 0 36 if ($Math::Prime::Util::_GMPfunc{'divisors'})
10625 0 0 if ($k < $n and $Math::Prime::Util::GMP::VERSION >= 0.53) { }
10629 0 0 if $k < $n
10635 5 2 if @pe == 1 and $pe[0][1] == 1 and $n <= $k
10640 1 90 if $p > $k
10646 1 30 if $k < $n
10659 2 0 if $high > $n
10674 0 1 if $n <= 1
10692 0 14 if $n == 0
10693 0 14 if $n < 0 or $n % 4 == 1 or $n % 4 == 2
10694 8 6 if $n <= 60
10698 6 0 if ($b == 0)
10700 2 4 if (_is_perfect_square($b2))
10705 16 16 unless $b2 % $i
10709 7 11 unless $b2 % $b
10711 3 15 if (_is_perfect_square($b2))
10716 4 33 unless $b2 % $i
10720 2 4 $square ? :
0 6 $b2 * 3 == $n ? :
10728 2 9 if $p == 2
10739 18 26 if ($v4 == 0) { }
3 23 elsif ($v4 == 3) { }
10742 1 2 $v % 8 == 3 ? :
10760 0 13 if $e <= 0
10761 11 2 unless defined $tp
10763 9 4 if $e == 1
10766 2 2 if $e == 2
10767 0 2 if $e == 3
10768 1 1 if $e == 4
10780 0 7 if $n <= 0
10783 7 0 if ($n < 100000 or not getconfig()->{'xs'})
10784 0 7 if ($Math::Prime::Util::_GMPfunc{'ramanujan_tau'})
10794 0 0 if $dig > 70 and $Math::Prime::Util::_GMPfunc{'Euler'}
10800 0 0 if $dig > 70 and $Math::Prime::Util::_GMPfunc{'li'}
10806 0 57 if $x == 0
10807 0 57 if $x == "-Inf"
10808 0 57 if $x == "Inf"
10816 0 57 if ($Math::Prime::Util::_GMPfunc{'ei'})
10817 0 0 $x < 100 ? :
10818 0 0 if defined $r
10820 0 0 if ref $x eq "Math::BigInt" and $x <= '18446744073709551615' and $x >= '-9223372036854775808'
10821 0 57 if ref $x and ref $x ne "Math::BigFloat"
10829 1 56 if ($x < -1) { }
5 51 elsif ($x < 0) { }
48 3 elsif ($x < -log($tol)) { }
10839 1 14 if abs $val - $old <= $tol * abs($val)
10869 48 4250 if $term < $tol
10880 3 78 if $term < $tol
10881 78 0 if ($term < $last_term) { }
10895 0 56 if $x == 0
10896 0 56 if $x == 1
10897 0 56 if $x == "Inf"
10898 0 56 if $x <= 0
10900 0 56 if ($Math::Prime::Util::_GMPfunc{'li'})
10902 0 0 if defined $r
10905 1 55 if ($x == 2)
10906 0 1 ref $x eq 'Math::BigFloat' ? :
10910 0 0 if ref $x eq "Math::BigInt" and $x <= '18446744073709551615' and $x >= '-9223372036854775808'
10911 0 55 if ref $x and ref $x ne "Math::BigFloat"
10914 8 16 if ref $x and ref($_[0]) =~ /^Math::Big/ and $_[0]->accuracy
10924 24 31 if (ref($x) =~ /^Math::Big/)
10927 8 16 if $xdigits < $xlen
10933 24 31 $xdigits ? :
10967 21 34 if ($x > "1e+16")
10968 20 1 ref $logx ? :
10976 1 1029 if $term < $tol
10977 1009 20 if ($term < $last_term) { }
10983 985 24 if $xdigits
10987 20 1 if ref $invx and $xdigits
10991 34 0 if ($x >= 1)
10999 34 1970 if $term < $tol
11000 481 1489 if $xdigits
11003 30 4 unless ref($x) =~ /^Math::Big/
11006 4 0 if $xdigits
11061 0 627 if ($Math::Prime::Util::_GMPfunc{'zeta'})
11067 0 0 if ($strval =~ s/^(1\.0*)/./) { }
11068 0 0 if length $1 > 2
11073 0 0 $wantbf ? :
11077 4 623 if (ref($x) =~ /^Math::Big/)
11083 27 596 if $x == int $x and defined $_Riemann_Zeta_Table[int($x) - 2]
11109 592 1532 if abs $rb / $s < $tol
11121 4 25 if $t < $tol
11132 0 29 if $x <= 0
11134 0 29 if ($Math::Prime::Util::_GMPfunc{'riemannr'})
11136 0 0 if defined $r
11138 0 0 if ref $x eq "Math::BigInt" and $x <= '18446744073709551615' and $x >= '-9223372036854775808'
11139 0 29 if ref $x and ref $x ne "Math::BigFloat"
11173 0 29 if (ref($x) =~ /^Math::Big/)
11181 1 28 if ($x > 1e+17) { }
11184 6 13 if $mob[$k] == 0
11187 1 12 if abs $term < $tol * abs($sum)
11194 999 615 $k <= $#_Riemann_Zeta_Table ? :
11200 28 1586 if $term < $tol * $sum
11208 0 1 if $x < "-0.36787944118"
11210 0 1 if ($Math::Prime::Util::_GMPfunc{'lambertw'})
11212 0 0 if defined $r
11214 0 0 if ref $x eq "Math::BigInt" and $x <= '18446744073709551615' and $x >= '-9223372036854775808'
11215 0 1 if ref $x and ref $x ne "Math::BigFloat"
11217 0 1 ref $x ? :
11221 0 1 if ($x < -0.06) { }
0 1 elsif ($x < 1.363) { }
0 1 elsif ($x < 3.7) { }
11223 0 0 if $ti <= 0
11260 0 1 if ($xacc)
11265 0 2 if $w == 0
11272 1 1 if abs $wen < $tol
11274 0 1 if $xacc
11281 0 986 unless $digits
11282 0 986 if $digits < 15
11283 14 972 if $digits < 30
11314 0 972 if ($Math::Prime::Util::_GMPfunc{'Pi'})
11315 0 0 if $_verbose
11322 1 971 if (not $have_xdigits or $have_bigint_gmp and $digits > 100)
11323 0 1 if $_verbose
11343 971 0 if ($have_xdigits)
11344 0 971 if $_verbose
11371 0 0 if $_verbose
11380 863 15 if (defined $end) { }
11383 0 878 if $beg < 2
11392 1 3180 if &Math::Prime::Util::_get_forexit()
11401 4 0 if (defined $end) { }
11406 2 2 if ($what eq 'oddcomposites') { }
11407 0 2 if $beg < 9
11408 2 0 unless $beg % 2 == 1
11411 0 2 if $beg < 4
11413 0 4 if $end == '18446744073709551615' and not ref $end
11422 0 14 if &Math::Prime::Util::_get_forexit()
11425 0 14 if &Math::Prime::Util::_get_forexit()
11442 7 8 if (defined $end) { }
11445 0 15 if $beg < 1
11452 123 51 if (not $sf or &Mis_square_free($beg))
11454 14 109 if ($sf == 2) { }
11460 0 123 if &Math::Prime::Util::_get_forexit()
11488 0 80 if &Math::Prime::Util::_get_forexit()
11506 1 1 if (defined $rhash)
11507 0 1 unless ref $rhash eq "HASH"
11509 1 0 if (defined $rhash->{'amin'})
11513 0 1 if (defined $rhash->{'amax'})
11517 0 1 if defined $rhash->{'n'}
11518 1 0 if defined $rhash->{'nmin'}
11519 0 1 if defined $rhash->{'nmax'}
11522 0 1 if (defined $rhash->{'prime'})
11526 0 1 if $mina < 1
11527 0 1 if $maxa > $n
11528 0 1 if $minn < 1
11529 0 1 if $maxn > $n
11530 0 1 if $primeq != -1 and $primeq != 0
11533 0 2 if $n == 0 and $minn <= 1
11534 0 2 if $n < $minn or $minn > $maxn or $mina > $maxa or $maxn <= 0 or $maxa <= 0
11546 5 32 $ispart ? :
11559 6 31 if $k + 1 < $minn
11561 26 5 if ($mina > 1 or $maxa < $n)
11562 0 26 if $a[0] > $maxa
11563 0 26 if ($ispart) { }
11564 0 0 if $a[$k] > $maxa
11566 41 23 unless $_ < $mina
23 3 if &Mvecany(sub { $_ > $maxa unless $_ < $mina; } , @a[0 .. $k])
11569 0 8 if $primeq == 0 and &Mvecany(sub { &Mis_prime($_); } , @a[0 .. $k])
11570 0 8 if $primeq == 2 and &Mvecany(sub { not &Mis_prime($_); } , @a[0 .. $k])
11571 0 8 if &Math::Prime::Util::_get_forexit()
11581 1 0 if (defined $k) { }
11583 0 1 if $k > $n
11592 0 1 if ($k == 0) { }
11598 0 3 if &Math::Prime::Util::_get_forexit()
11599 1 2 if $c[-1]++ < $n - 1
11602 1 1 if $i < 0
11607 0 1 if &Math::Prime::Util::_get_forexit()
11613 0 2 if ($n <= 1)
11615 0 0 if ($n == 0) { }
11625 24 6 unless ($all_perm)
11628 15 52 if ($c[$p] == $k - $p - 1)
11634 15 15 if ($send)
11636 0 15 if &Math::Prime::Util::_get_forexit()
11638 15 15 if (++$inc & 1)
11644 2 13 if $j >= $k
11655 0 1 if defined $k
11661 0 1 if defined $k
11662 0 1 if $n == 1
11669 1 77 if $sum == 0
11674 0 77 if ($sum == 1) { }
51 26 elsif ($sum == 2) { }
11678 5 46 if (@n == 1) { }
11682 45 1 unless &Math::Prime::Util::_get_forexit()
11697 3 70 if &Math::Prime::Util::_get_forexit()
11706 0 1 if $n == 0
11707 0 1 if $n == 1
11709 0 1 if $k < 0 or int $k / $f >= $n
11715 1 10 if $n == 0
11724 0 3 unless ref $A eq "ARRAY"
11727 1 2 if $n == 0
11732 0 37 if not defined $v or $v < 0 or $v >= $n or $S{$v}++
11740 186 194 if $A->[$j] < $A->[$i]
11751 4 0 if (defined $k)
11754 0 4 if not defined $k or $k > $n
11755 0 4 if $k == 0
11758 2 2 if ("$k" / "$n" <= 0.3) { }
11768 2 12 if $i >= $k
11789 0 1 if $k == 0 or @_ == 0
11792 0 1 $isarr ? :
11794 0 1 if $k > $len
11801 0 1 $isarr ? :
11809 3 59 if scalar @s == 1 and (ref $s[0] || '') eq "ARRAY"
11816 1 61 unless wantarray
11819 0 61 if ($] < 5.026) { }
11830 0 53 unless (ref $r || '') eq "ARRAY"
11832 0 53 if ($] < 5.026) { }
11839 0 6 unless (ref $sub || '') eq "CODE"
11840 0 6 unless (ref $ra || '') eq "ARRAY"
11841 6 0 if (defined $rb) { }
11842 0 6 unless (ref $rb || '') eq "ARRAY"
11867 0 12 unless (ref $ra || '') eq "ARRAY"
11868 11 1 if (defined $rb) { }
11869 0 11 unless (ref $rb || '') eq "ARRAY"
11873 0 12 if scalar @$ra == 0 or scalar @$rb == 0
11876 11 1 if ($ra != $rb)
11901 30 2 if (defined $_) { }
11903 2 2 wantarray ? :
4 1 unless $countundef
11904 0 1 unless wantarray
11914 21 2 defined $_ ? :
11915 33 3 defined $_ ? :
11933 93 2 if ($SV == $TV) { }
0 2 elsif ($SV < $TV) { }
11938 0 1 if ($is < $ns) { }
1 0 elsif ($it < $nt) { }
11949 0 5 unless (ref $ra || '') eq "ARRAY" and (ref $rb || '') eq "ARRAY"
11957 0 9 unless (ref $ra || '') eq "ARRAY" and (ref $rb || '') eq "ARRAY"
11959 2 7 if scalar @$ra > scalar @$rb
11960 0 9 if scalar @$ra == 0
11967 0 6 unless (ref $ra || '') eq "ARRAY" and (ref $rb || '') eq "ARRAY"
11969 0 6 if scalar @$rb == 0
11976 0 5 unless (ref $ra || '') eq "ARRAY" and (ref $rb || '') eq "ARRAY"
11978 0 5 if scalar @$rb == 0
11979 0 5 if scalar @$ra == 0
11991 0 0 unless (ref $ra || '') eq "ARRAY"
11997 0 0 if (ref $min and not ref $max or not ref $min and ref $max) { }
11999 0 0 unless exists $ina{$min}
12004 0 0 unless exists $ina{$min}
12014 404 38 if scalar @list <= 1
12024 7 11 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
12029 0 18 if @$iset == 0
12030 6 12 if @$set == 0 or @$iset > @$set or $iset->[-1] > $set->[-1] or $iset->[0] < $set->[0]
12032 11 1 if (@$set <= 150 or @$set <= 250 and @$iset > 2)
12035 13 82 if ($sv >= $iset->[$i])
12036 3 10 if $sv > $iset->[$i]
12037 8 2 if $i == $iset->$#*
12049 3 1 if $hi - $lo > $range and $$set[$lo + $range] >= $v
12052 8 24 if ($set->[$mid] < $v) { }
12055 0 4 if $set->[$hi] != $v
12064 2 0 if (@in == 1 and ref $in[0] eq 'ARRAY') { }
12070 2 0 if scalar @$set > scalar @$iset
12071 0 2 if @$set == 0
12075 1 11 if exists $ina{$_}
12084 0 0 if (scalar @$rset == 0 or $v > $rset->[-1]) { }
0 0 elsif ($v < $rset->[0]) { }
0 0 elsif (scalar @$rset > 1) { }
12092 0 0 if ($rset->[$mid] < $v) { }
12095 0 0 if $rset->[$hi] == $v
12096 0 0 if $hi > 0 and $$rset[$hi - 1] >= $v
12097 0 0 if $rset->[$hi] <= $v
12108 2 388 if (@in == 1 and ref $in[0] eq 'ARRAY') { }
12113 0 390 if @$iset == 0
12115 119 271 if ($setsize == 0 or $iset->[0] > $set->[-1]) { }
53 218 elsif ($iset->[-1] < $set->[0]) { }
1 217 elsif (@$iset > 400) { }
12151 1 216 if $nend > 0
12153 0 217 if $nbeg > 0
12159 1 218 if $hi - $lo > $range and $$set[$lo + $range] >= $v
12162 155 198 if ($set->[$mid] < $v) { }
12165 25 194 if $set->[$hi] != $v
12169 0 217 if @sbeg
12170 1 216 if @send
12179 0 2 if scalar @$rset == 0 or $v > $rset->[-1] or $v < $rset->[0]
12184 2 4 if ($rset->[$mid] < $v) { }
12187 1 1 if $rset->[$hi] != $v
12195 1 2 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
12201 0 3 if $setsize == 0 or @$iset == 0
12208 0 0 $setsize < 75000 ? :
3 0 $setsize < 170 ? :
12211 2 1 if (@$iset <= $fitmin) { }
12217 0 1 if $remsize == 0
12227 0 4 if (scalar @$rset == 0 or $v > $rset->[-1]) { }
0 4 elsif ($v < $rset->[0]) { }
12235 5 7 if ($rset->[$mid] < $v) { }
12238 2 2 if ($rset->[$hi] == $v)
12249 0 3 if @in == 0
12251 1 2 if (@in == 1 and ref $in[0] eq 'ARRAY') { }
12257 0 3 if ($setsize == 0)
12263 3 0 if (@$iset <= 100) { }
12269 0 0 if (@$iset and $iset->[0] == $sv) { }
12285 0 4 unless (ref $s || '') eq "ARRAY" and (ref $t || '') eq "ARRAY"
12287 2 2 if scalar @$s > scalar @$t
12288 0 4 if @$s == 0 or @$t == 0
12291 2 6 if exists $ins{$k = $v}
12296 0 3 unless (ref $s || '') eq "ARRAY" and (ref $t || '') eq "ARRAY"
12298 0 3 unless @$s == @$t
12302 2 6 unless exists $ins{$v}
12305 0 4 unless $_
12310 0 16 unless (ref $s || '') eq "ARRAY" and (ref $t || '') eq "ARRAY"
12312 0 16 if @$t == 0
12313 0 16 if @$s < @$t
12316 6 24 unless exists $ins{$v}
12321 0 6 unless (ref $s || '') eq "ARRAY" and (ref $t || '') eq "ARRAY"
12323 2 4 if @$s <= @$t
12334 0 4 unless (ref $s || '') eq "ARRAY" and (ref $t || '') eq "ARRAY"
12336 0 4 scalar @$s < scalar @$t ? :
12338 1 3 $intersize > 0 && $intersize < $minsize ? :
12343 0 4 unless (ref $ra || '') eq "ARRAY"
12349 0 16 if $x < 0
12352 1 48 if exists $sums{$s}
12361 0 4 unless (ref $ra || '') eq "ARRAY"
12369 1 24 if exists $ina{&Maddint($x, $y)}
12381 0 4 if $k == 0
12382 4 0 if (defined $hi) { }
12387 0 4 if $lo > $hi
12394 4 0 $nsegs <= 1.1 ? :
12395 4 0 if ($segsize < 5000000)
12410 0 22 if &Math::Prime::Util::_get_forexit()
12414 0 4 if &Math::Prime::Util::_get_forexit()
12428 0 27 if $n <= 0
12429 0 27 if $n <= 32
12430 0 27 if $n <= 64
12438 0 179 if $Math::Prime::Util::_GMPfunc{'urandomm'}
12439 1 178 if $n <= 1
12441 152 26 if ($n <= 4294967295) { }
0 26 elsif (not ref $n) { }
12459 0 2 if (scalar @_ == 1) { }
12464 0 2 if $Math::Prime::Util::_GMPfunc{'random_prime'}
12473 0 3 unless $digits >= 1
12475 0 3 if $Math::Prime::Util::_GMPfunc{'random_ndigit_prime'} and not getconfig()->{'nobigint'}
12482 0 9 unless $bits >= 2
12484 0 9 if $Math::Prime::Util::_GMPfunc{'random_nbit_prime'}
12491 0 2 unless $bits >= 3
12493 0 2 if $Math::Prime::Util::_GMPfunc{'random_safe_prime'}
12500 0 1 unless $bits >= 128
12502 0 1 if $Math::Prime::Util::_GMPfunc{'random_strong_prime'}
12514 0 1 unless $bits >= 2
12517 0 1 if $Math::Prime::Util::_GMPfunc{'random_maurer_prime'}
12521 0 1 unless Math::Prime::Util::verify_prime($cert)
12530 0 0 unless $bits >= 2
12533 0 0 if $Math::Prime::Util::_GMPfunc{'random_shawe_taylor_prime'}
12537 0 0 unless Math::Prime::Util::verify_prime($cert)
12546 0 3 if (scalar @_ == 1) { }
12548 0 3 if $n < 2
12549 0 3 if $k <= 0
12551 0 3 if ($Math::Prime::Util::_GMPfunc{'miller_rabin_random'})
12552 0 0 if defined $seed
12557 0 3 if ($k >= int 3 * $n / 4)
12559 0 0 unless &Math::Prime::Util::is_strong_pseudoprime($n, $_)
12564 2 1 unless &Math::Prime::Util::is_strong_pseudoprime($n, &Murandomm($brange) + 2)
12567 0 1 $k >= 20 ? :
12568 0 1 unless is_strong_pseudoprime($n, map({&Murandomm($brange) + 2;} 1 .. $nbases))
12577 0 1 unless $b >= 4
12593 0 1 unless $b >= 3
12599 0 1 if ($b <= 64) { }
12641 82 31 unless defined $M{$prime}
12643 0 31 if ($r <= $PR)
12649 1 0 unless (defined $p)
12664 1 0 if ($r <= 3.54) { }
0 0 elsif ($Math::Prime::Util::_GMPfunc{'expreal'}) { }
12669 0 0 $r < 4.45 ? :
12680 0 1 $a < 2 ? :
12701 0 0 if $r <= $n and 1 + &Murandomm($n) <= $r
12709 0 2 unless _is_nonneg_int($n)
12720 0 11 if defined $Math::Prime::Util::GMP::VERSION and $Math::Prime::Util::GMP::VERSION >= "0.49"