Goldbach's comet: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(added RPL) |
||
Line 1,539: | Line 1,539: | ||
'''Stretch goal:''' (offsite SVG image) [https://raw.githubusercontent.com/thundergnat/rc/master/img/Goldbachs-Comet-Raku.svg Goldbachs-Comet-Raku.svg] |
'''Stretch goal:''' (offsite SVG image) [https://raw.githubusercontent.com/thundergnat/rc/master/img/Goldbachs-Comet-Raku.svg Goldbachs-Comet-Raku.svg] |
||
=={{header|RPL}}== |
|||
{{works with|HP|49}} |
|||
« '''IF''' 2 MOD '''THEN''' |
|||
"GOLDB Error: Odd number" DOERR |
|||
'''ELSE''' |
|||
0 |
|||
2 PICK3 2 / CEIL '''FOR''' j |
|||
'''IF''' j ISPRIME? '''THEN''' |
|||
'''IF''' OVER j - ISPRIME? '''THEN''' 1 + '''END''' |
|||
'''END''' |
|||
'''NEXT''' NIP |
|||
'''END''' |
|||
» '<span style="color:blue">GOLDB</span>' STO |
|||
« « n <span style="color:blue">GOLDB</span> » 'n' 4 202 2 SEQ |
|||
OBJ→ DROP { 10 10 } →ARRY |
|||
1000000 <span style="color:blue">GOLDB</span> "G(1000000)" →TAG |
|||
» '<span style="color:blue">TASK</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
2: [[ 1 1 1 2 1 2 2 2 2 3 ] |
|||
[ 3 3 2 3 2 4 4 2 3 4 ] |
|||
[ 3 4 5 4 3 5 3 4 6 3 ] |
|||
[ 5 6 2 5 6 5 5 7 4 5 ] |
|||
[ 8 5 4 9 4 5 7 3 6 8 ] |
|||
[ 5 6 8 6 7 10 6 6 12 4 ] |
|||
[ 5 10 3 7 9 6 5 8 7 8 ] |
|||
[ 11 6 5 12 4 8 11 5 8 10 ] |
|||
[ 5 6 13 9 6 11 7 7 14 6 ] |
|||
[ 8 13 5 8 11 7 9 13 8 9 ]] |
|||
1: G(1000000): 5402 |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||
Line 1,568: | Line 1,601: | ||
The value of G(1000000) is 5402. |
The value of G(1000000) is 5402. |
||
</pre> |
</pre> |
||
=={{header|Rust}}== |
=={{header|Rust}}== |
||
<syntaxhighlight lang="rust">// [dependencies] |
<syntaxhighlight lang="rust">// [dependencies] |