diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2014-10-13 11:27:13 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2014-10-13 11:27:13 +0300 |
| commit | 0485d6bfe2417a7640ef95c9de6f48e1f35003fd (patch) | |
| tree | f26c8a24a4a12bf9be5038f40e6a20a4f6e9aa79 /awklib/eg/prog/pi.awk | |
| parent | 7504a8fbc86b327ad07c79c943b8fe2d253f256d (diff) | |
| parent | 2a8c128ca91b42261720368e5d25431ee4362c70 (diff) | |
| download | egawk-0485d6bfe2417a7640ef95c9de6f48e1f35003fd.tar.gz egawk-0485d6bfe2417a7640ef95c9de6f48e1f35003fd.tar.bz2 egawk-0485d6bfe2417a7640ef95c9de6f48e1f35003fd.zip | |
Merge branch 'master' into cmake
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 +} |