Anaprimes: Difference between revisions
m
→{{header|Sidef}}: sort the groups before printing
m (→{{header|Wren}}: Changed to Wren S/H) |
m (→{{header|Sidef}}: sort the groups before printing) |
||
| (2 intermediate revisions by the same user not shown) | |||
Line 931:
use List::Util 'max';
use Lingua::EN::Numbers qw(num2en);
for my $l (3..9) {
Line 1,115 ⟶ 1,113:
Anaprime groups of 8 digits: 1 has 4333 primes.
First: 12345769 Last: 97654321</pre>
=={{header|Sidef}}==
Up to 8 digits, takes about 30 seconds, using ~800 MB of RAM.
<syntaxhighlight lang="ruby">for k in (3..8) {
var P = primes(10**(k-1), 10**k).group_by{ Str(_).sort }
var G = P.values
var m = G.map{.len}.max
printf("Largest group of anaprimes before %s: %s members.\n", commify(10**k), m)
G.grep { .len == m }.sort.each {|group|
say "First: #{group.head} Last: #{group.tail}"
}
say ""
}</syntaxhighlight>
{{out}}
<pre>
Largest group of anaprimes before 1,000: 4 members.
First: 149 Last: 941
First: 179 Last: 971
First: 379 Last: 937
Largest group of anaprimes before 10,000: 11 members.
First: 1237 Last: 7321
First: 1279 Last: 9721
Largest group of anaprimes before 100,000: 39 members.
First: 13789 Last: 98731
Largest group of anaprimes before 1,000,000: 148 members.
First: 123479 Last: 974213
Largest group of anaprimes before 10,000,000: 731 members.
First: 1235789 Last: 9875321
Largest group of anaprimes before 100,000,000: 4333 members.
First: 12345769 Last: 97654321
</pre>
=={{header|Wren}}==
| |||