Proper divisors: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
(add RPL) |
||
Line 5,889: | Line 5,889: | ||
9 -> 1 3 |
9 -> 1 3 |
||
10 -> 1 2 5 |
10 -> 1 2 5 |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|HP|49}} |
|||
≪ DIVIS REVLIST TAIL |
|||
≫ '<span style="color:blue">PDIVIS</span>' STO |
|||
≪ 0 → max n |
|||
≪ 0 |
|||
1 max '''FOR''' j |
|||
j <span style="color:blue">PDIVIS</span> SIZE |
|||
'''IF''' DUP2 < '''THEN''' SWAP j 'n' STO '''END''' |
|||
DROP |
|||
'''NEXT''' |
|||
DROP n DUP SIZE |
|||
≫ ≫ '<span style="color:blue">TASK2</span>' STO |
|||
≪ n <span style="color:blue">PDIVIS</span> ≫ 'n' 1 10 1 SEQ |
|||
20000 <span style="color:blue">TASK2</span> |
|||
{{out}} |
|||
<pre> |
|||
3: {{} {1} {1} {1 2} {1} {1 2 3} {1} {1 2 4} {1 3} {1 2 5}} |
|||
2: 15120 |
|||
1: 39 |
|||
</pre> |
</pre> |
||