Greatest common divisor: Difference between revisions
Content added Content deleted
(→{{header|RPL}}: improved) |
|||
| Line 5,581: | Line 5,581: | ||
=={{header|RPL}}== |
=={{header|RPL}}== |
||
≪ ''' |
≪ '''WHILE''' DUP '''REPEAT''' 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'''</span> |
|||
'''Output:''' |
|||
<span style="color:grey">1:</span> 34 |
|||
40902 24140 '''GCD''' |
|||
{{out}} |
|||
<pre> |
|||
1: 34 |
|||
</pre> |
|||
===Using unsigned integers=== |
===Using unsigned integers=== |
||
≪ DUP2 < ≪ SWAP ≫ '''IFT''' |
≪ DUP2 < ≪ SWAP ≫ '''IFT''' |
||
'''WHILE''' DUP B→R '''REPEAT''' SWAP OVER / LAST ROT * - '''END''' DROP |
'''WHILE''' DUP B→R '''REPEAT''' SWAP OVER / LAST ROT * - '''END''' DROP |
||
≫ ''''GCD'''' STO |
≫ '<span style="color:blue">'''GCD'''</span>' STO |
||
#40902d #24140d '''GCD''' |
#40902d #24140d <span style="color:blue">'''GCD'''</span> |
||
'''Output:''' |
|||
{{out}} |
|||
<span style="color:grey">1:</span> #34d |
|||
<pre> |
|||
1: #34d |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||