31 lines
502 B
Plaintext
31 lines
502 B
Plaintext
#!/usr/bin/bc -l
|
|
|
|
scaleinc= 20
|
|
|
|
define zeropad ( n ) {
|
|
auto m
|
|
for ( m= scaleinc - 1; m > 0; --m ) {
|
|
if ( n < 10^m ) {
|
|
print "0"
|
|
}
|
|
}
|
|
return ( n )
|
|
}
|
|
|
|
wantscale= scaleinc - 2
|
|
scale= wantscale + 2
|
|
oldpi= 4*a(1)
|
|
scale= wantscale
|
|
oldpi= oldpi / 1
|
|
oldpi
|
|
while( 1 ) {
|
|
wantscale= wantscale + scaleinc
|
|
scale= wantscale + 2
|
|
pi= 4*a(1)
|
|
scale= 0
|
|
digits= ((pi - oldpi) * 10^wantscale) / 1
|
|
zeropad( digits )
|
|
scale= wantscale
|
|
oldpi= pi / 1
|
|
}
|