bc/Examples/pi.b

2    This is a program to determine the distribution of digits in the
3    fraction part of PI.   It will look at the first scale digits.
5    The results are left in the global variable digits.
6    digits[0] is the number of 0's in PI.
16   print "\n\nCalculating PI to ",scale," digits.  Please wait . . .";
21   print "\nCounting digits. . .";
22   for (ix = 0; ix < 10; ix++) digits[ix] = 0;
38     digits[one_digit] += 1;
46   print "PI to ", scale, " digits is:\n", pi/1, "\n\n"
47   print "The frequency of the digits are:\n"
49     print "    ", ix, " - ", digits[ix], " times\n"