如何求PI精确值？

如何求PI精确值？

前者就是被称为「外星人程序」的求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,原作者未詳,我猜是外星人 :)*/

运行通过,答案正确