Data commit

Task/Pi/Bc/pi.bc

@@ -0,0 +1,30 @@
+#!/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
+}