Revision as of 16:13, 5 February 2023 (view source) Tigerofdarkness (talk \| contribs) (→‎{{header\|ALGOL 68}}: more notes) ← Older edit		Revision as of 23:02, 27 February 2023 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Raku}}: use List::Allmax) Newer edit →
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).List.&all-max(:by(+.value)).~~value~~values; put "\nLargest group of anaprimes before {cardinal 10 ** $_}: {+$@largest[0].value} members."; put 'First: ', ' Last: ' Z~ ~~$largest~~.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.

Anaprimes: Difference between revisions

Anaprimes (view source)