Truncatable primes: Difference between revisions
Content deleted Content added
→{{header|Perl 6}}: remove redundant prime test |
→{{header|Perl 6}}: used wrong 'and' |
||
Line 1,102:
for (9...1) X (9...1) X (9...1) X (9...1) X (9...1) X (9,7,3) -> $a,$b,$c,$d,$e,$f {
my @x := [\+] $f, $e, $d, $c, $b, $a Z* (1,10,100 ... *);
return @x[*-1] if prime @x[0]
prime @x[3]
}
}
Line 1,128:
say "Highest rtp: ", rtp;</lang>
{{out}}
<pre>Highest ltp:
Highest rtp: 739399</pre>
| |||