Primes whose first and last number is 3: Difference between revisions
Content added Content deleted
(→{{header|RPL}}: improved generator) |
m (→{{header|RPL}}: compact code) |
||
Line 950: | Line 950: | ||
Uses a candidate numbers generator to speed up execution. |
Uses a candidate numbers generator to speed up execution. |
||
{{works with|HP|49}} |
{{works with|HP|49}} |
||
⚫ | |||
⚫ | |||
≫ ≫ '<span style="color:blue">NXT3N3</span>' STO |
|||
≪ { } 3 |
≪ { } 3 |
||
'''WHILE''' DUP 4000 < '''REPEAT''' |
'''WHILE''' DUP 4000 < '''REPEAT''' |
||
'''IF''' DUP ISPRIME? '''THEN''' SWAP OVER + SWAP '''END''' |
'''IF''' DUP ISPRIME? '''THEN''' SWAP OVER + SWAP '''END''' |
||
⚫ | |||
<span style="color:blue">NXT3N3</span> |
|||
⚫ | |||
'''END''' DROP |
'''END''' DROP |
||
≫ '<span style="color:blue">33PRIMES</span>' STO |
≫ '<span style="color:blue">33PRIMES</span>' STO |