| line |
true |
false |
branch |
|
658
|
1 |
59 |
unless ($BGCD_CHECK) |
|
672
|
5 |
55 |
if ($ki <= 31) |
|
694
|
5 |
9356 |
if $p >= $sqrt |
|
696
|
45 |
9311 |
unless $n % $p |
|
722
|
52 |
3 |
if ($ki > 2 * $MI) { } |
|
726
|
52 |
9 |
if $ki * (1 - $r) > $MI |
|
752
|
10072 |
3090 |
unless $n->bgcd($BGCD_CHECK)->is_one |
|
762
|
3035 |
55 |
unless _millerrabin($n, 1, 1) |
|
767
|
55 |
0 |
if ($a->copy->bmodpow($n->copy->bdec, $n)->is_one) |
|
770
|
55 |
0 |
if ($a->bdec->bgcd($n)->is_one) |
|
781
|
0 |
3090 |
if $t < 1 |
|
782
|
0 |
3090 |
if $kn < 0 or $kn > 1 |
|
786
|
3090 |
0 |
$is_bigint ? : |
|
|
3090 |
0 |
$is_bigint ? : |
|
|
0 |
3090 |
if ($is_bigint ? $n->ble($_MBI_3) : $n <= 3) { } |
|
|
0 |
3090 |
elsif ($is_bigint ? $n->is_even : !($n & 1)) { } |
|
787
|
0 |
0 |
if $n > 1 |
|
794
|
3090 |
0 |
$is_bigint ? : |
|
798
|
3090 |
0 |
$is_bigint ? : |
|
800
|
0 |
0 |
$is_bigint ? : |
|
808
|
3090 |
0 |
if ($i == 0 and $kn == 1) { } |
|
812
|
0 |
0 |
$is_bigint ? : |
|
816
|
0 |
3090 |
unless $is_bigint |
|
819
|
3035 |
55 |
if (not $a->is_one and $a->bne($n1)) |
|
825
|
0 |
0 |
if $a->is_one |
|
830
|
3035 |
0 |
if $a->bne($n1) |