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