Home primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 96: / 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: ' = '),
+    say +@steps > 1
-        (+@steps > 1 ?? '' !! "HP$m"), " = ", @steps.tail;
+        ?? (@steps[0..*-2].map( { "HP$_\({--$step})" } ).join: ' = ')
+        !! ("HP$m"), " = ", @steps[*-1];
 }</lang>
 {{out}}