Find square difference: Difference between revisions

=={{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.