byp4a55 professor6T9

Linux host.videowhizz.saglus.com 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
Apache
67.43.5.91

pi.b

/*
   This is a program to determine the distribution of digits in the
   fraction part of PI.   It will look at the first scale digits.

The results are left in the global variable digits.
   digits[0] is the number of 0's in PI.

This program requires the math library.
*/

define pi () {
  auto ix, pi, save_scale, work;

save_scale = scale;
  scale += 5;
  print "\n\nCalculating PI to ",scale," digits.  Please wait . . .";
  pi = 4*a(1);
  scale -= 5;
  work = pi;

print "\nCounting digits. . .";
  for (ix = 0; ix < 10; ix++) digits[ix] = 0;

/* Extract the One's digit from pi. */
  scale = 0;
  one_digit = work / 1;

for (ix = save_scale; ix > 0; ix--) {

/* Remove the One's digit and multiply by 10. */
    scale = ix;
    work = (work - one_digit) / 1 * 10;

/* Extract the One's digit. */
    scale = 0;
    one_digit = work / 1;

digits[one_digit] += 1;
  }

/* Restore the scale. */
  scale = save_scale;

/* Report. */
  print "\n\n"
  print "PI to ", scale, " digits is:\n", pi/1, "\n\n"
  print "The frequency of the digits are:\n"
  for (ix = 0; ix < 10; ix++) {
    print "    ", ix, " - ", digits[ix], " times\n"
  }

print "\n\n"
}

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2016-05-06 04:36:11
..	dir	-	root/root	0755	2016-05-06 04:36:11
ckbook.b	text/plain	330 B	root/root	0644	2000-07-07 11:34:09
pi.b	text/plain	1.16 KB	root/root	0644	2000-07-07 11:34:09
primes.b	text/plain	633 B	root/root	0644	2000-07-07 11:34:09
twins.b	text/plain	710 B	root/root	0644	2000-07-07 11:34:09

Team Anon Force

https://t.me/Professor6T9x