Revision as of 23:59, 24 May 2021 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Raku}}: remove unnecessary intermediate variables) ← Older edit		Revision as of 00:06, 25 May 2021 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Raku}}: DRY) Newer edit →
Line 96: @steps.push: @factors.join.Int while (@factors = prime-factors @steps[-1]) > 1; my $step = +@steps; say (+@steps~~[0..-2].map(~~ {> ~~"HP$_\({--$step})" } ).join: ' = '),~~1 ?? (+@steps[0..-2].map( ~~> 1 ?? '' !!~~{ "HP$m_\({--$step})" } ),.join: "' = ~~", @steps.tail;~~') !! ("HP$m"), " = ", @steps[-1]; }</lang> {{out}}

Home primes (view source)