编程语言EF速度测试(7)：recursive

这是一个专门的编程语言/编译器速度测试/对比网站（http://shootout.alioth.debian.org/）给出的题目，

以下是EF源代码：

//recursive
public class 启动类 <作者 = "liigo">
{
	public static main()
	{
		int time = 运行环境.取启动时间();
		int n = 11;

		控制台.输出行("Ack(3,", n, "): ", ack(3, n));
		控制台.输出行("Fib(", 27.0 + n, "): ", fib(27.0 + n));

		n -= 1;
		控制台.输出行("Tak(", n * 3,",", n * 2,",", n,"): ", tak(n * 3, n * 2, n));
		控制台.输出行("Fib(3): ", fib(3));
		控制台.输出行("Tak(3.0,2.0,1.0): ", tak(3.0, 2.0, 1.0));

		控制台.输出行("time(ms): ", 运行环境.取启动时间() - time);
		控制台.输入文本();
	}

	public static int ack(int m, int n)
	{
		if (m == 0) return n + 1;
		if (n == 0) return ack(m - 1, 1);
		return ack(m - 1, ack(m, n - 1));
	}

	public static int fib(int n)
	{
		if (n < 2) return 1;
		return fib(n - 2) + fib(n - 1);
	}

	public static double fib(double n)
	{
		if (n < 2.0) return 1.0;
		return fib(n - 2.0) + fib(n - 1.0);
	}

	public static int tak(int x, int y, int z)
	{
		if (y >= x) return z;
		return tak(tak(x - 1, y, z), tak(y - 1, z, x), tak(z - 1, x, y));
	}

	public static double tak(double x, double y, double z)
	{
		if (y >= x) return z;
		return tak(tak(x - 1.0, y, z), tak(y - 1.0, z, x), tak(z - 1.0, x, y));
	}
}

这个EF程序，在我的机器上，运行耗时约 11.8 秒。相应的VC6最佳优化后运行耗时约 5.5 秒。

其它编程语言/编译器的表现，请看这里：http://shootout.alioth.debian.org/gp4/benchmark.php?test=recursive&lang=all

针对这次测试，EF表现中上等。比EF快三五倍的有，比EF慢成百上千倍的也有。我之前对EF的递归性能有所怀疑，现在看来是多虑了。

（这次VC6的表现也不好，输给了好多对手）

还有很多测试题目，有时间再继续。想了解EF语言，请到EF官方博客：http://blog.csdn.net/efdev/