certainement, d'ailleurs un programme comme ça est beaucoup plus clair :
long a=10000,b,c=8400,d,e,f[8401],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);}
Si si, ça calcule réellement les 2400 premières décimales de Pi...
[^] # Re: La preuve
Posté par Yves BAILLY . En réponse à la dépêche Vous ne maîtrisez pas Perl ?. Évalué à 1.
long a=10000,b,c=8400,d,e,f[8401],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);}
Si si, ça calcule réellement les 2400 premières décimales de Pi...