Greatest common divisor: Difference between revisions
Content added Content deleted
m (Added Raven code for Greatest common divisor) |
|||
Line 1,934: | Line 1,934: | ||
</lang> |
</lang> |
||
=={{header|Raven}}== |
|||
===Recursive Euclidean algorithm=== |
|||
<lang Raven>define gcd use $u, $v |
|||
$v 0 > if |
|||
$u $v % $v gcd |
|||
else |
|||
$u abs |
|||
24140 40902 gcd</lang> |
|||
{{out}}<pre>34</pre> |
|||
=={{header|REBOL}}== |
=={{header|REBOL}}== |
||
<lang rebol>gcd: func [ |
<lang rebol>gcd: func [ |