blob: cfc094c8c8567bd18ef119d7772e315a9e5d2d06 (
plain) (
tree)
|
|
fun main[]
x = call ggt1[30,40]
print x
y = call ggt2[30,40]
print y
end
fun ggt1[x,y]
while x != y
if x > y
x = x - y
else
y = y - x
end
end
@x
end
fun ggt2[a,b]
while b
x = a
a = b
b = x % b
end
@a
end
|