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

csstome

这是一个专门的编程语言/编译器速度测试/对比网站（http://shootout.alioth.debian.org/）给出的题目，
以下是EF源代码：
//fannkuchpublic 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;/* initial (trivial) permu */r = n;didpr = 0;flipsMax = 0;for(;;){if( didpr < 30 ){for( i=0;i<n;i++ ) 控制台.输出(1+perm1);控制台.输出行("");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 = perm1;}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;perm = 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 = 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/