Rosetta Code

Home primes: Difference between revisions

Page Discussion

Home primes (view source)

Revision as of 23:59, 24 May 2021

4 bytes removed ,  2 years ago
m
→‎{{header|Raku}}: remove unnecessary intermediate variables
(Changed iteration count from count-up to count-down to better match wikipedia. Update for modified reqs.)
m (→‎{{header|Raku}}: remove unnecessary intermediate variables)
Line 93:
 
for flat 2..20, 65 -> $m {
my ($n, @steps, @factors) = $m, $m;
@steps.push: $n = @factors.join.Int while (@factors = prime-factors $n@steps[*-1]) > 1;
my $step = +@steps;
say (@steps[0..*-2].map( { "HP$_\({--$step})" } ).join: ' = '),
Thundergnat
10,327

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/312322"