diff options
Diffstat (limited to '')
-rw-r--r-- | test/test5.t | 27 |
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 |