Greatest common divisor: Difference between revisions
Content added Content deleted
(Added BBC BASIC) |
|||
| Line 154: | Line 154: | ||
gcd = gcd(a, b mod a) |
gcd = gcd(a, b mod a) |
||
end function</lang> |
end function</lang> |
||
=={{header|BBC BASIC}}== |
|||
<lang bbcbasic> DEF FN_GCD_Iterative_Euclid(A%, B%) |
|||
LOCAL C% |
|||
WHILE B% |
|||
C% = A% |
|||
A% = B% |
|||
B% = C% MOD B% |
|||
ENDWHILE |
|||
= ABS(A%)</lang> |
|||
=={{header|Bc}}== |
=={{header|Bc}}== |
||