Primality by Wilson's theorem: Difference between revisions
Content added Content deleted
(Added Wren) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: remove un-needed '*.') |
||
| Line 490: | Line 490: | ||
printf("%4d %s\n", $_, .&is-wilson-prime) for 2, 3, 9, 15, 29, 37, 47, 57, 67, 77, 87, 97, 237, 409, 659; |
printf("%4d %s\n", $_, .&is-wilson-prime) for 2, 3, 9, 15, 29, 37, 47, 57, 67, 77, 87, 97, 237, 409, 659; |
||
my $wilsons = (2,3,*+2…*).hyper.grep: |
my $wilsons = (2,3,*+2…*).hyper.grep: &is-wilson-prime; |
||
put "\nFirst 120 primes:"; |
put "\nFirst 120 primes:"; |
||