[email protected]
算圓周率程式 :
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);}
--
※ Origin: 克萊恩大地 <Terry.Dragon2.Net>
◆ From: terry.dorm11.nctu.edu.tw
ftp://freebsd.csie.nctu.edu.tw/pub/sparc64/ISO-IMAGES/sparc64-20020624.iso
MD5 (sparc64-20020624.iso) = 5b614fedad3dd8eab3c378cf5d261867
--
e-mail :