1  /*
 2   * mini.c
 3   *
 4   * Calcule 15000 décimales de Pi
 5   * Très petit
 6   *
 7   */
 8
 9  #include <stdio.h>
10
11  a[52514],b,c=52514,d,e,f=1e4,g,h;
12  main(){for(;b=c-=14;h=printf("%04d",e+d/f))
13  for(e=d%=f;g=--b*2;d/=g)d=d*b+f*(h?a[b]:f/5),a[b]=d%--g;}