Fixed &is_prime()

This commit is contained in:
dataking 2016-08-21 13:07:21 -07:00
parent 9675f9fdbd
commit 12e866f520

View File

@ -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;
} }
} }