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); }
Pas mal, non?
JM
-- Jean-Marc Sac-Epée, Ingénieur de Recherches en Calcul Scientifique, Laboratoire de Mathématiques, UMR 7122, Université de Metz, Tél 03 87 54 72 69 Fax 03 87 31 52 73 mail [EMAIL PROTECTED]
Vous souhaitez acquerir votre Pack ou des Services MandrakeSoft? Rendez-vous sur "http://www.mandrakestore.com".
Foire Aux Questions de la liste : http://mdk.mondelinux.org