Find square difference: Difference between revisions
add RPL
(add →Joy) |
(add RPL) |
||
Line 681:
done...
</pre>
=={{header|RPL}}==
≪ 1 1
'''DO'''
SWAP 1 + DUP SQ
'''UNTIL''' DUP 4 ROLL - 1000 > '''END''' DROP
≫ EVAL
{{out}}
<pre>
1: 501
</pre>
The above program takes 16.4 seconds to be executed on a HP-28S.
=={{header|Sidef}}==
| |||