summaryrefslogblamecommitdiffstats
path: root/test/test5.t
blob: c6e786d8d11d267d842a066e21485163bf9cbdb3 (plain) (tree)
1
2
3
4
5
6




                            
               




















                                 
fun main[]
	x = call ggt1[30,40]
	print x
	y = call ggt2[30,40]
	print y
	@x == 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