Erdös-Selfridge categorization of primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: minor style tweaks) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: Yet more style twiddling) |
||
Line 50: | Line 50: | ||
<lang perl6>use Prime::Factor; |
<lang perl6>use Prime::Factor; |
||
⚫ | |||
⚫ | |||
sub Erdös-Selfridge ($n) { |
sub Erdös-Selfridge ($n) { |
||
my @factors = prime-factors |
my @factors = unique grep * > 3, prime-factors $n + 1; |
||
my $category = 1; |
my $category = 1; |
||
while @factors.elems { |
while @factors.elems { |
||
Line 60: | Line 62: | ||
$category |
$category |
||
} |
} |
||
⚫ | |||
⚫ | |||
say "First 200 primes; Erdös-Selfridge categorized:"; |
say "First 200 primes; Erdös-Selfridge categorized:"; |
||
⚫ | |||
my %category; |
|||
⚫ | |||
.say for sort %category; |
.say for sort %category; |
||
say "\nFirst million primes; Erdös-Selfridge categorized:"; |
say "\nFirst million primes; Erdös-Selfridge categorized:"; |
||
⚫ | |||
my @category; |
|||
⚫ | |||
⚫ | |||
⚫ | |||
{{out}} |
{{out}} |
||
<pre>First 200 primes; Erdös-Selfridge categorized: |
<pre>First 200 primes; Erdös-Selfridge categorized: |