Sequence of primes by trial division: Difference between revisions

m
→‎{{header|Perl}}: use true/false explicitly
(Added Arturo implementation)
m (→‎{{header|Perl}}: use true/false explicitly)
Line 2,144:
 
=={{header|Perl}}==
<lang perl>subuse isprime {v5.36;
use enum <false true>;
my $n = shift;
 
return ($n >= 2) if $n < 4;
sub isprime ($n) {
return unless $n % 2 && $n % 3;
my return $sqrtnn => 1 if int(sqrt($n)) < 4;
for (my $ireturn =false 5;unless $in <=% $sqrtn;2 and $in +=% 6) {3;
returnfor unless(my $ni %= 5; $i &&<= int sqrt $n; % ($i +2= 6); {
return false unless $n % 2$i &&and $n % 3($i+2);
}
1; }
true
}
 
printsay join(" "' ', grep { isprime( $_) } 0 .. 100 ), "\n";
printsay join(" "' ', grep { isprime( $_) } 12345678 .. 12345678+100 ), "\n";</lang>
{{out}}
<pre>2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
2,392

edits