sample.tny

来自「一个微型的编译器的实现代码。主要是为了说明编译器的工作原理」· TNY 代码 · 共 14 行

{ Sample program
  in TINY language -
  computes factorial
}
read x; { input an integer }
if 0 < x then { don't compute if x <= 0 }
  fact := 1;
  repeat
    fact := fact * x;
    x := x - 1
  until x = 0;
  write fact  { output factorial of x }
end