荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: tang (独孤九剑〖玄铁重剑〗), 信区: Program
标 题: 求PI精確值的怪異程式
发信站: BBS 荔园晨风站 (Fri Aug 13 15:55:39 1999), 转信
求PI精確值的怪異程式
pi1.c(487bytes)/pi2.c(552bytes)
作者:佚名
前者就是被稱為「外星人程式」的求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);}
/*(原程式第一行是int a=10000,b,c....因為在IBM PC
上int只有2-byte,所以我改成long以便各platform都
能run)
(本程式連可算出pi值連小數點前共800位)
(本程式節錄自sci.math FAQ,原作者未詳,我猜是外星人 :)*/
运行通过,答案正确
--
there are these few times I feel lonely for you
but I know this shade of blue will soon pass through
I must be strong without you by my side
I can see forever you are my light
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.10.250]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店