Rosetta Code

Anaprimes: Difference between revisions

← Older editNewer edit →
Content deleted Content added
SqrtNegInf (talk | contribs)
2,392 edits
Added Perl
SqrtNegInf (talk | contribs)
2,392 edits
→‎{{header|Perl}}: labels 10x off, speed up code
Line 828:
use Lingua::EN::Numbers qw(num2en);
 
for my $lprimes = primes(3..81,1e9) {;
 
for my $l (3..9) {
my %p;
for$p{ (join grep'', {sort split //, "$_" >} .= "$_ " for @{ primes 10**($l-1) && $_ <, 10**$l } @{primes(1,1e8)} ) {;
my $k = join '', sort {$a <=> $b} split //, "$_";
$p{$k} .= "$_ ";
}
my $m = max map { length $p{$_} } keys %p;
printf "Largest group of anaprimes before %s: %d members.\n", num2en(10**($l+1)), $m/($l+1);
for my $k (sort grep { $m == length $p{$_} } keys %p) {
printf "First: %d Last: %d\n", $p{$k} =~ /^(\d+) .* (\d+) $/;
say "First: $1 Last: $2";
}
say '';
}</syntaxhighlight>
{{out}}
<pre>Largest group of anaprimes before tenone thousand: 4 members.
First: 149 Last: 941
First: 179 Last: 971
First: 379 Last: 937
 
Largest group of anaprimes before one hundredten thousand: 11 members.
First: 1237 Last: 7321
First: 1279 Last: 9721
 
Largest group of anaprimes before one millionhundred thousand: 39 members.
First: 13789 Last: 98731
 
Largest group of anaprimes before tenone million: 148 members.
First: 123479 Last: 974213
 
Largest group of anaprimes before one hundredten million: 731 members.
First: 1235789 Last: 9875321
 
Retrieved from "https://rosettacode.org/wiki/Anaprimes"