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