Anonymous user
Primality by trial division: Difference between revisions
Added perl version.
m (→{{header|Python}}: Added python version.) |
(Added perl version.) |
||
Line 154:
true
)
=={{header|Perl}}==
sub prime {
my $a = shift;
if ($a == 2) {
return 1;
}
if ($a <= 1 || $a % 2 == 0) {
return 0;
}
$d = 3;
while ($d <= sqrt($a)) {
if ($a % $d == 0) {
return 0;
}
$d += 2;
}
return 1;
}
=={{header|Python}}==
| |||