From g.meinsma@math.utwente.nl Mon Dec 11 00:32:03 2000
Date: Tue, 08 Aug 2000 14:28:37 -0100
From: gjerrit meinsma <g.meinsma@math.utwente.nl>
To: jasonp@isr.umd.edu
Subject: pishort.c

I've read your pi-pages and it seems
you have been busy with getting tiny code
for pi. That's interesting.

Perhaps you have comments on my little C-program.
It takes 141 characters, so not as much as the
"standard" calculate-pi.c program. Of course
it is not as tiny as the assembler code on your page.

It calculates 1000 decimals of pi (could easily do more)
in about two seconds:

  long k=4e3,p,a[337],q,t=1e3;
  main(j){for(;a[j=q=0]+=2,--k;)
  for(p=1+2*k;j<337;q=a[j]*k+q%p*t,a[j++]=q/p)
  k!=j>2?:printf("%.3d",a[j-2]%t+q/p/t);}


Groeten,
Gjerrit Meinsma.