ggT example

1 files changed, 27 insertions, 0 deletions

diff --git a/test/test5.t b/test/test5.t
new file mode 100644
index 0000000..c6e786d
--- /dev/null
+++ b/test/test5.t
@@ -0,0 +1,27 @@
+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