int a=10000,b=0,c=8400,d,e=0,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);}}
(Pour La Science 199, Mai 1994, auteur inconnu)
MON OBJECTIF EST DE PROMOUVOIR L'IDEE QUE LES HUMAINS,
ET NON PAS LES ORDINATEURS, LISENT LES PROGRAMMES (DONALD KNUTH).
FAVORISER :
LA LISIBILITE,
L'AUTO-VALIDATION (DE L'IMPOSSIBILITE DES TESTS EXHAUSTIFS),
L'EVOLUTIBILITE,
LA MAINTENABILITE,
DES PROGRAMMES.
DES PROGRAMMES A LIRE -textes-, DES PROGRAMMES A REGARDER -images-.