Erdös-Selfridge categorization of primes: Difference between revisions

m
→‎{{header|Raku}}: remove some unnecessary blocks
m (→‎{{header|Raku}}: Yet more style twiddling)
m (→‎{{header|Raku}}: remove some unnecessary blocks)
Line 64:
 
say "First 200 primes; Erdös-Selfridge categorized:";
my %category = $sieve.n-primes(200).categorize: { .&Erdös-Selfridge };
.say for sort %category;
 
say "\nFirst million primes; Erdös-Selfridge categorized:";
%category = $sieve.n-primes(1_000_000).categorize: { .&Erdös-Selfridge };
printf "Category %2d: first: %7d, last: %8d, total: %d\n", ++$, .[0], .[*-1], .elems for %category.sort(+*.key)».value;</lang>
{{out}}
10,333

edits