Truncatable primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 270: / Line 270: @@
 Left:	998443
 Right:	739399</pre>
 =={{header|AWK}}==
 <lang AWK>
@@ Line 1,832: / Line 1,833: @@
 print( "max_prime_left = ", max_prime_left )
 print( "max_prime_right = ", max_prime_right )</lang>
 =={{header|Maple}}==
@@ Line 1,892: / Line 1,892: @@
 </pre>
 =={{header|Mathematica}}==
@@ Line 2,316: / Line 2,314: @@
 {{out}}
 <pre>left 998443, right 739399</pre>
-=={{header|Perl 6}}==
-{{works with|Rakudo|2015.09}}
-<lang perl6>constant ltp = $[2, 3, 5, 7], -> @ltp {
-    $[ grep { .&is-prime }, ((1..9) X~ @ltp) ]
-} ... *;
-constant rtp = $[2, 3, 5, 7], -> @rtp {
-    $[ grep { .&is-prime }, (@rtp X~ (1..9)) ]
-} ... *;
-say "Highest ltp = ", ltp[5][*-1];
-say "Highest rtp = ", rtp[5][*-1];</lang>
-{{out}}
-<pre>Highest ltp: 998443
-Highest rtp: 739399</pre>
 =={{header|Phix}}==
@@ Line 2,699: / Line 2,681: @@
 </lang>
+=={{header|Raku}}==
+(formerly Perl 6)
+{{works with|Rakudo|2015.09}}
+<lang perl6>constant ltp = $[2, 3, 5, 7], -> @ltp {
+    $[ grep { .&is-prime }, ((1..9) X~ @ltp) ]
+} ... *;
+constant rtp = $[2, 3, 5, 7], -> @rtp {
+    $[ grep { .&is-prime }, (@rtp X~ (1..9)) ]
+} ... *;
+say "Highest ltp = ", ltp[5][*-1];
+say "Highest rtp = ", rtp[5][*-1];</lang>
+{{out}}
+<pre>Highest ltp: 998443
+Highest rtp: 739399</pre>
 =={{header|REXX}}==
 Extra code was added to the prime number generator as this is the section of the REXX program that consumes the vast majority of the computation time.