Greatest common divisor: Difference between revisions
RPL unsigned integer version
(→min: add) |
(RPL unsigned integer version) |
||
Line 5,573:
=={{header|RPL}}==
≪ '''
'''WHILE''' DUP '''REPEAT''' SWAP OVER MOD '''END''' DROP
≫ ''''GCD'''' STO
40902 24140 '''GCD'''
{{out}}
<pre>
1: 34
</pre>
===Using unsigned integers===
≪ DUP2 < ≪ SWAP ≫ '''IFT'''
'''WHILE''' DUP B→R '''REPEAT''' SWAP OVER / LAST ROT * - '''END''' DROP
≫ ''''GCD'''' STO
#40902d #24140d '''GCD'''
{{out}}
<pre>
1: #34d
</pre>
|