10 lines
110 B
Text
10 lines
110 B
Text
fn gcdIter a b =
|
|
(
|
|
while b > 0 do
|
|
(
|
|
c = mod a b
|
|
a = b
|
|
b = c
|
|
)
|
|
abs a
|
|
)
|