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
