summaryrefslogtreecommitdiffstats
path: root/test/test5.t
blob: cfc094c8c8567bd18ef119d7772e315a9e5d2d06 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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