| line |
true |
false |
branch |
|
640
|
0 |
0 |
unless ($BGCD_CHECK) |
|
654
|
0 |
0 |
if ($ki <= 31) |
|
670
|
0 |
0 |
if $p >= $sqrt |
|
673
|
0 |
0 |
unless ($n % $p) |
|
702
|
0 |
0 |
if ($ki > 2 * $MI) { } |
|
706
|
0 |
0 |
if $ki * (1 - $r) > $MI |
|
732
|
0 |
0 |
unless $n->bgcd($BGCD_CHECK)->is_one |
|
742
|
0 |
0 |
unless _millerrabin($n, 1, 1) |
|
747
|
0 |
0 |
if ($a->copy->bmodpow($n->copy->bdec, $n)->is_one) |
|
750
|
0 |
0 |
if ($a->bdec->bgcd($n)->is_one) |
|
761
|
0 |
0 |
if $t < 1 |
|
762
|
0 |
0 |
if $kn < 0 or $kn > 1 |
|
766
|
0 |
0 |
$is_bigint ? : |
|
|
0 |
0 |
$is_bigint ? : |
|
|
0 |
0 |
if ($is_bigint ? $n->ble($_MBI_3) : $n <= 3) { } |
|
|
0 |
0 |
elsif ($is_bigint ? $n->is_even : !($n & 1)) { } |
|
767
|
0 |
0 |
if $n > 1 |
|
774
|
0 |
0 |
$is_bigint ? : |
|
778
|
0 |
0 |
$is_bigint ? : |
|
780
|
0 |
0 |
$is_bigint ? : |
|
788
|
0 |
0 |
if ($i == 0 and $kn == 1) { } |
|
792
|
0 |
0 |
$is_bigint ? : |
|
796
|
0 |
0 |
unless $is_bigint |
|
799
|
0 |
0 |
if (not $a->is_one and $a->bne($n1)) |
|
805
|
0 |
0 |
if $a->is_one |
|
810
|
0 |
0 |
if $a->bne($n1) |