Truncatable primes: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 270:
Left: 998443
Right: 739399</pre>
=={{header|AWK}}==
<lang AWK>
Line 1,832 ⟶ 1,833:
print( "max_prime_left = ", max_prime_left )
print( "max_prime_right = ", max_prime_right )</lang>
=={{header|Maple}}==
Line 1,892:
998443
</pre>
=={{header|Mathematica}}==
Line 2,316 ⟶ 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 ⟶ 2,681:
739399
</lang>
(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.
| |||