Greatest common divisor: Difference between revisions

Line 5,581:
 
=={{header|RPL}}==
≪ '''IFWHILE''' DUP2 <DUP '''THENREPEAT''' SWAP OVER MOD '''END''' DROP ABS ≫ '<span style="color:blue">'''GCD'''</span>' STO
 
'''WHILE''' DUP '''REPEAT''' SWAP OVER MOD '''END''' DROP
40902 '24140 <span style="color:blue">'''GCD'''' STO</span>
'''Output:'''
<span style="color:grey">1:</span> 34
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
≫ '<span style="color:blue">'''GCD'''</span>' STO
 
#40902d #24140d <span style="color:blue">'''GCD'''</span>
'''Output:'''
{{out}}
<span style="color:grey">1:</span> #34d
<pre>
1: #34d
</pre>
 
=={{header|Ruby}}==
1,151

edits