作者Cabin (牧野流星)
看板ck47th320
标题四行程式求 PI 到小数点後 800 位
时间Wed May 30 19:32:22 2001
在
http://tknet.tku.edu.tw/~u7192436/index.htm 看到的
嗯....有空再来想一想 :p
-----------------------------------------------------
某年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,原作者未详,我猜是外星人 :)
--
※ 发信站: 批踢踢实业坊(ptt.csie.ntu.edu.tw)
◆ From: 140.112.8.69