RosettaCodeData/Task/Pi/PARI-GP/pi.pari

12 lines
197 B
Plaintext

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)
)
};