Home primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: remove unnecessary intermediate variables) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: DRY) |
||
Line 96: | Line 96: | ||
@steps.push: @factors.join.Int while (@factors = prime-factors @steps[*-1]) > 1; |
@steps.push: @factors.join.Int while (@factors = prime-factors @steps[*-1]) > 1; |
||
my $step = +@steps; |
my $step = +@steps; |
||
say |
say +@steps > 1 |
||
( |
?? (@steps[0..*-2].map( { "HP$_\({--$step})" } ).join: ' = ') |
||
!! ("HP$m"), " = ", @steps[*-1]; |
|||
}</lang> |
}</lang> |
||
{{out}} |
{{out}} |