编程语言EF速度测试(3)：fannkuch

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

以下是EF源代码：

//fannkuch public final class 启动类 <作者 = "liigo"> { public static main() { int n = 11; int time = 运行环境.取启动时间(); 控制台.输出("Pfannkuchen(", n, ") = ", fannkuch(n), "/n"); 控制台.输出行("time(ms): ", 运行环境.取启动时间() - time); 控制台.输入文本(); } static int fannkuch(int n) { int[] perm = new int[n]; int[] perm1 = new int[n]; int[] count = new int[n]; int flips; int flipsMax; int r; int i; int k; int didpr; int n1 = n - 1; if( n < 1 ) return 0; for(i=0; i<n; i++) perm1[i] = i; /* initial (trivial) permu */ r = n; didpr = 0; flipsMax = 0; for(;;) { if( didpr < 30 ) { for( i=0;i<n;i++ ) 控制台.输出(1+perm1[i]); 控制台.输出行(""); didpr++; } for(;r!=1;r--) { count[r-1] = r; } if(!(perm1[0]==0 || perm1[n1]==n1) ) { flips = 0; for( i=1;i<n;i++ ) { perm[i] = perm1[i]; } k = perm1[0]; /* cache perm[0] in k */ do { /* k!=0 ==> k>0 */ int j; for( {i=1; j=k-1;}; i<j; {i++; j--;} ) { int t_mp = perm[i]; perm[i] = perm[j]; perm[j] = t_mp; } flips++; /* * Now exchange k (caching perm[0]) and perm[k] */ j=perm[k]; perm[k]=k; k=j; } while(k != 0); if( flipsMax < flips ) { flipsMax = flips; } } for(;;) { if( r == n ) { return flipsMax; } /* rotate down perm[0..r] by one */ int perm0 = perm1[0]; i = 0; while( i < r ) { k = i+1; perm1[i] = perm1[k]; i = k; } perm1[r] = perm0; count[r] -= 1; if( count[r] > 0 ) { break; } r++; } } } }

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

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

总的来说，EF表现不坏。比不少编程语言（如C++, JAVA, C#, D, Fortran, Pascal）慢很多，又比另外不少编程语言（如Erlang, Python, Ruby, Perl, PHP, Lua, Groovy, SmallTalk, JavaScript）快很多。

进一步分析的话：EF作为编译型语言，通常比其它编译型语言都慢（毕竟EF编译器尚未优化），最多慢7倍；EF通常比解释型语言都要快，往往快数倍、数十倍，以至上百倍。

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