Piprimes: Difference between revisions
Content added Content deleted
No edit summary |
(add RPL) |
||
Line 863: | Line 863: | ||
Found 78 Piprimes. |
Found 78 Piprimes. |
||
done... |
done... |
||
</pre> |
|||
Pi primes ✔ |
|||
=={{header|RPL}}== |
|||
{{works with|HP|49g}} |
|||
≪ 0 |
|||
1 ROT '''FOR''' j j ISPRIME? + '''NEXT''' |
|||
≫ '<span style="color:blue">PI</span>' STO |
|||
≪ 0 → n |
|||
≪ { } 1 CF |
|||
'''DO''' |
|||
'n' INCR <span style="color:blue">PI</span> |
|||
'''IF''' DUP 22 ≤ '''THEN''' + '''ELSE''' DROP 1 SF '''END''' |
|||
'''UNTIL''' 1 FS? '''END''' |
|||
≫ '<span style="color:blue">TASK</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
1: { 0. 1. 2. 2. 3. 3. 4. 4. 4. 4. 5. 5. 6. 6. 6. 6. 7. 7. 8. 8. 8. 8. 9. 9. 9. 9. 9. 9. 10. 10. 11. 11. 11. 11. 11. 11. 12. 12. 12. 12. 13. 13. 14. 14. 14. 14. 15. 15. 15. 15. 15. 15. 16. 16. 16. 16. 16. 16. 17. 17. 18. 18. 18. 18. 18. 18. 19. 19. 19. 19. 20. 20. 21. 21. 21. 21. 21. 21. } |
|||
</pre> |
</pre> |
||