Primes whose first and last number is 3: Difference between revisions
Content added Content deleted
(→More general: Added stretch goal.) |
|||
Line 52: | Line 52: | ||
Found 33 Such primes. |
Found 33 Such primes. |
||
</pre> |
|||
=={{header|Perl}}== |
|||
<lang perl>#!/usr/bin/perl |
|||
use strict; # https://rosettacode.org/wiki/Primes_whose_first_and_last_number_is_3 |
|||
use warnings; |
|||
use ntheory qw( primes ); |
|||
my @n33 = grep /^3/ && /3$/, @{ primes( 4000 ) }; |
|||
my $n33 = grep /^3/ && /3$/, @{ primes( 1_000_000 ) }; |
|||
print @n33 . " under 4000\n\n@n33" =~ s/.{75}\K /\n/gr, |
|||
"\n\n$n33 under 1000000\n";</lang> |
|||
{{out}} |
|||
<pre> |
|||
33 under 4000 |
|||
3 313 353 373 383 3023 3083 3163 3203 3253 3313 3323 3343 3373 3413 3433 3463 |
|||
3533 3583 3593 3613 3623 3643 3673 3733 3793 3803 3823 3833 3853 3863 3923 3943 |
|||
2251 under 1000000 |
|||
</pre> |
</pre> |
||