Achilles numbers: Difference between revisions
m
→{{header|Raku}}: a few minor style tweaks
(Added Wren) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: a few minor style tweaks) |
||
Line 105:
my @achilles = powerful(10**5).sort.hyper.grep: {
my $f = .&prime-factors.Bag;
(+$f.keys > 1) && (1 == [gcd] $f.values) && (.sqrt.Int
};
my \𝜑 = 0, |(1..*).hyper.map: -> \t { t
my %ps = Set.new: @achilles;
Line 122:
my $achilles = powerful(10**9).hyper(:500batch).grep( {
my $f = .&prime-factors.Bag;
(+$f.keys > 1) && (1 == [gcd] $f.values) && (.sqrt.Int
} ).classify: { .chars }
| |||