Find largest left truncatable prime in a given base: Difference between revisions

Content added Content deleted

Inline

@@ Line 953: / Line 953: @@
         my @new;
         my $place = $base ** $digits;
+        for 1 ..^ $base -> $digit {
-	    for 1 ..^ $base -> $digit {
             my $left = $digit * $place;
             for @stems -> $stem {
-	            my $new = $left + $stem;
+	        my $new = $left + $stem;
-	            @new.push($new) if $new.is-prime;
+	        @new.push($new) if $new.is-prime;
             }
         }
@@ Line 964: / Line 963: @@
         @stems = @new;
     }
-	say "\nLargest ltp in base $base = { @stems.tail } or :$base\<{@stems.tail.base($base)}>\n";
+    say "\nLargest ltp in base $base = { @stems.tail } or :$base\<{@stems.tail.base($base)}>\n";
 }</lang>
 {{out}}