编程语言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/