8 lines
158 B
Text
8 lines
158 B
Text
DEF FN_GCD_Iterative_Euclid(A%, B%)
|
|
LOCAL C%
|
|
WHILE B%
|
|
C% = A%
|
|
A% = B%
|
|
B% = C% MOD B%
|
|
ENDWHILE
|
|
= ABS(A%)
|