tst

来自「用YACC实现的一个小的编译工具」· 代码 · 共 11 行

// greatest common divisor

x := 8;
y := 12;
WHILE x != y DO
   IF x > y THEN x := x-y
   ELSE y := y-x
   FI
OD;
PRINT x