Problem Statement

Create a program to continually calculate and output the next decimal digit of

π

{\displaystyle \pi }

(pi). The program should continue forever (until it is aborted by the user) calculating and outputting each decimal digit in succession. The output should be a decimal sequence beginning   3.14159265 ...

Note: this task is about   calculating   pi.   For information on built-in pi constants see Real constants and functions.

Related Task Arithmetic-geometric mean/Calculate Pi

Let's start with the solution:

pi()={
  my(x=Pi,n=0,t);
  print1("3.");
  while(1,
    if(n>=default(realprecision),
      default(realprecision,default(realprecision)*2);
      x=Pi
    );
    print1(floor(x*10^n++)%10)
  )
};