11 lines
197 B
Text
11 lines
197 B
Text
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)
|
|
)
|
|
};
|