Anonymous user
Primality by trial division: Difference between revisions
→series had bug for n less than 5 in r* 2010.08
(corrected source since author is known) |
|||
Line 638:
{{works with|Rakudo Star|2010.08}}
<lang perl6> sub prime (Int $n --> Bool) {
or $n >= 4 && $n %% none (2, 3, *+2 ... 1 + sqrt $n);
}</lang>
or
<lang perl6> sub prime (Int $n --> Bool) {
$n > 1 and $n %% none (2, 3, *+2 ... 1 + sqrt $n).grep(* <= sqrt $n);
}
</lang>
(Per S03 [http://perlcabal.org/syn/S03.html#List_infix_prcedence S03] the series limit does not filter the leading term.)
Testing:
| |||