Anaprimes: Difference between revisions

Content added Content deleted

Inline

@@ Line 899: / Line 899: @@
 <syntaxhighlight lang="raku" line>use Lingua::EN::Numbers;
 use Math::Primesieve;
+use List::Allmax;
 my $p = Math::Primesieve.new;
 for 3 .. 9 {
-    my $largest = $p.primes(10**($_-1), 10**$_).classify(*.comb.sort.join).max(+*.value).value;
+    my @largest = $p.primes(10**($_-1), 10**$_).classify(*.comb.sort.join).List.&all-max(:by(+*.value)).values;
-    put "\nLargest group of anaprimes before {cardinal 10 ** $_}: {+$largest} members.";
+    put "\nLargest group of anaprimes before {cardinal 10 ** $_}: {+@largest[0].value} members.";
-    put 'First: ', ' Last: ' Z~ $largest[0, *-1];
+    put 'First: ', ' Last: ' Z~ .value[0, *-1] for sort @largest;
 }</syntaxhighlight>
 {{out}}
 <pre>Largest group of anaprimes before one thousand: 4 members.
+First: 149  Last: 941
 First: 179  Last: 971
+First: 379  Last: 937
 Largest group of anaprimes before ten thousand: 11 members.
 First: 1237  Last: 7321
+First: 1279  Last: 9721
 Largest group of anaprimes before one hundred thousand: 39 members.