diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2014-10-01 22:01:05 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2014-10-01 22:01:05 +0300 |
| commit | db0190d23e173d1869906385d00f3cbc01559b72 (patch) | |
| tree | 60be24d3a21ccfe674d510961247463480a6ae87 /awklib/eg/prog/pi.awk | |
| parent | a2a68eaafd161190d15a42cb2d54e297c5263860 (diff) | |
| parent | 96490f609bec8ee0b1827faf893d0f6daecc9a53 (diff) | |
| download | egawk-db0190d23e173d1869906385d00f3cbc01559b72.tar.gz egawk-db0190d23e173d1869906385d00f3cbc01559b72.tar.bz2 egawk-db0190d23e173d1869906385d00f3cbc01559b72.zip | |
Merge branch 'master' into comment
Diffstat (limited to 'awklib/eg/prog/pi.awk')
| -rw-r--r-- | awklib/eg/prog/pi.awk | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/awklib/eg/prog/pi.awk b/awklib/eg/prog/pi.awk new file mode 100644 index 00000000..3297beff --- /dev/null +++ b/awklib/eg/prog/pi.awk @@ -0,0 +1,18 @@ +# pi.awk --- compute the digits of pi +# +# Katie Wasserman, katie@wass.net +# August 2014 + +BEGIN { + digits = 100000 + two = 2 * 10 ^ digits + pi = two + for (m = digits * 4; m > 0; --m) { + d = m * 2 + 1 + x = pi * m + div(x, d, result) + pi = result["quotient"] + pi = pi + two + } + print pi +} |