文章标题:求PIxx值的怪异程序 原 作 者:不详 原 出 处:ASP 空间 发 布 者:loose_went 发布类型:转载 发布日期:2004-07-03 今日/总浏览:1/4923 前者就是被称为「外星人程序」的求PI小程序.. 四行求PI到小数点后八百位..真的不是人写得出來的.. :Q --------------------------- /*某年Obfuscated C Contest佳作選錄:*/ long a=10000,b,c=2800,d,e,f[2801],g; main(){for(;b-c;)f[b++]=a/5; for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a) for(b=c;d+=f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);} /*(原程式{dy}行是int a=10000,b,c....因為在IBM PC 上int只有2-byte,所以我改成long以便各platform都 能run) (本程式連可算出pi值連小數點前共800位) (本程式節錄自sci.math FAQ,原作者未詳,我猜是外星人 :)*/ 运行通过,答案正确 |