test.vsl

来自「《编译方法》课程设计内容２．《编译方法》课程设计内容」· VSL 代码 · 共 25 行

FUNC main()
{
	VAR i

	i := 0

        WHILE 11 - i
	DO
	{
                PRINT " f( ", i, " ) = ", f(i),  "\n"
		i := i + 1
	}
	DONE
}

FUNC f(n)
{
	IF n
	THEN
		RETURN n * f(n - 1)
	ELSE
		RETURN 1
	FI
}