Perfect numbers: Difference between revisions
add RPL
No edit summary |
(add RPL) |
||
Line 3,891:
return sum
</syntaxhighlight>
=={{header|RPL}}==
≪ 0 SWAP 1
'''WHILE''' DUP2 > '''REPEAT'''
'''IF''' DUP2 MOD NOT '''THEN''' ROT OVER + ROT ROT '''END'''
1 + '''END'''
DROP ==
≫ ''''PFCT?'''' STO
≪
{ } 1 1000 '''FOR''' n
'''IF''' n '''PFCT?''' '''THEN''' n + '''END''' '''NEXT'''
≫ ''''TASK'''' STO
{{out}}
<pre>
1: { 6 28 496 }
</pre>
A vintage HP-28S needs 157 seconds to collect all perfect numbers under 100...
=={{header|Ruby}}==
| |||