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

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

以下是EF源代码：

//recursivepublic 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/