Greatest common divisor: Difference between revisions
Add Refal
m (→{{header|PowerPC Assembly}}: Fix gcd greater than swapping) |
Not a robot (talk | contribs) (Add Refal) |
||
Line 5,760:
m
]</syntaxhighlight>
=={{header|Refal}}==
<syntaxhighlight lang="refal">$ENTRY Go {
= <Prout <Gcd 3528 3780>>;
};
Gcd {
s.M 0 = s.M;
s.M s.N = <Gcd s.N <Mod s.M s.N>>;
};</syntaxhighlight>
{{out}}
<pre>252</pre>
=={{header|Retro}}==
| |||