Fixed &is_prime()
This commit is contained in:
parent
9675f9fdbd
commit
12e866f520
|
@ -1338,16 +1338,12 @@ END
|
||||||
|
|
||||||
sub is_prime {
|
sub is_prime {
|
||||||
my $num = shift(@_);
|
my $num = shift(@_);
|
||||||
|
my $sqrt = sqrt($num);
|
||||||
if ($num < 2 ) { return 0; }
|
my $d = 2;
|
||||||
if ($num == 2) { return 1; }
|
while (1) {
|
||||||
else {
|
return 0 if ( $num % $d == 0 );
|
||||||
for (my$i=2;$i<sqrt($num);$i++) {
|
return 1 if ( $d >= $sqrt );
|
||||||
if ($num % $i == 0) {
|
$d++;
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return 1;
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user