Radical of an integer: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added links to other charbarcharts) |
(add RPL) |
||
Line 614: | Line 614: | ||
Plus 1: 1 |
Plus 1: 1 |
||
Total: 78,735 |
Total: 78,735 |
||
</pre> |
|||
=={{header|RPL}}== |
|||
<code>PDIV</code> is defined at [[Prime decomposition#RPL|Prime decomposition]] |
|||
<code>NODUP</code> is defined at [[Remove duplicate elements#RPL|Remove duplicate elements]] |
|||
'''Standard version''' |
|||
≪ <span style="color:blue">PDIV NODUP</span> 1 1 3 PICK SIZE '''FOR''' j OVER j GET * '''NEXT''' SWAP DROP ≫ '<span style="color:blue">RADIX</span>' STO |
|||
'''HP-48G and later models''' |
|||
≪ <span style="color:blue">PDIV NODUP</span> ΠLIST ≫ '<span style="color:blue">RADIX</span>' STO |
|||
Calls to solve the task: |
|||
≪ { 1 } 2 50 '''FOR''' n n <span style="color:blue">RADIX</span> + '''NEXT''' ≫ EVAL |
|||
99999 <span style="color:blue">RADIX</span> |
|||
499999 <span style="color:blue">RADIX</span> |
|||
999999 <span style="color:blue">RADIX</span> |
|||
≪ { 7 } 0 CON 1 1 PUT 2 10000 '''FOR''' n n <span style="color:blue">PDIV NODUP</span> SIZE DUP2 GET 1 + PUT '''NEXT''' ≫ EVAL |
|||
Looping one million times would need days to run on HP calculators and would wake up emulator's watchdog timer. |
|||
{{out}} |
|||
<pre> |
|||
5: { 1 2 3 2 5 6 7 2 3 10 11 6 13 14 15 2 17 6 19 10 21 22 23 6 5 26 3 14 29 30 31 2 33 34 35 6 37 38 39 10 41 42 43 22 15 46 47 6 7 10 } |
|||
4: 33333 |
|||
3: 3937 |
|||
2: 111111 |
|||
1: { 1281 4097 3695 894 33 0 0 } |
|||
</pre> |
</pre> |
||