Pan base non-primes: Difference between revisions
Content added Content deleted
(Added FreeBASIC) |
(added RPL) |
||
Line 1,282: | Line 1,282: | ||
Percent odd up to and including 2500: 16.894019 |
Percent odd up to and including 2500: 16.894019 |
||
Percent even up to and including 2500: 83.105981</pre> |
Percent even up to and including 2500: 83.105981</pre> |
||
=={{header|RPL}}== |
|||
{{works with|RPL|HP-49C}} |
|||
« { } SWAP |
|||
'''WHILE''' DUP '''REPEAT''' 10 IDIV2 ROT + SWAP '''END''' |
|||
DROP |
|||
» '<span style="color:blue">→DIGL</span>' STO |
|||
« { } 3 ROT '''FOR''' n |
|||
1 CF |
|||
'''CASE''' |
|||
n 10 > LASTARG MOD NOT AND '''THEN''' 1 SF '''END''' |
|||
n |
|||
'''IF''' DUP 9 > '''THEN''' |
|||
<span style="color:blue">→DIGL</span> |
|||
'''IF''' DUP « GCD » STREAM 1 > '''THEN''' DROP 1 SF '''END''' |
|||
'''END''' |
|||
1 FC? '''THEN''' |
|||
1 SF |
|||
2 n '''FOR''' b |
|||
DUP |
|||
'''IF''' DUP TYPE 5 == '''THEN''' « SWAP b * + » STREAM '''END''' |
|||
'''IF''' ISPRIME? '''THEN''' 1 CF n 'b' STO '''END''' |
|||
'''NEXT''' DROP |
|||
'''END''' |
|||
'''END''' |
|||
'''IF''' 1 FS? '''THEN''' n + '''END''' |
|||
'''NEXT''' |
|||
» '<span style="color:blue">TASK</span>' STO |
|||
« DUP 2 MOD OVER IFT |
|||
→ pbnp odds |
|||
« pbnp 1 50 SUB |
|||
odds 1 20 SUB |
|||
pbnp SIZE "pbnp ≤ 1000" →TAG |
|||
odds SIZE pbnp SIZE / 100 * "% odd" →TAG |
|||
» » '<span style="color:blue">PBNPVU</span>' STO |
|||
1000 <span style="color:blue">TASK</span> <span style="color:blue">PBNPVU</span> |
|||
{{out}} |
|||
<pre> |
|||
4: { 4 6 8 9 20 22 24 26 28 30 33 36 39 40 42 44 46 48 50 55 60 62 63 64 66 68 69 70 77 80 82 84 86 88 90 93 96 99 100 110 112 114 116 118 120 121 130 132 134 136 } |
|||
3: { 9 33 39 55 63 69 77 93 99 121 143 165 169 187 231 253 273 275 297 299 } |
|||
2: pbnp ≤ 1000: 377. |
|||
1: % odd: 16.7108753316 |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |