diff options
Diffstat (limited to 'awklib/eg')
| -rw-r--r-- | awklib/eg/lib/intdiv.awk (renamed from awklib/eg/lib/div.awk) | 7 | ||||
| -rw-r--r-- | awklib/eg/prog/pi.awk | 2 |
2 files changed, 6 insertions, 3 deletions
diff --git a/awklib/eg/lib/div.awk b/awklib/eg/lib/intdiv.awk index 5939024d..dbc553b0 100644 --- a/awklib/eg/lib/div.awk +++ b/awklib/eg/lib/intdiv.awk @@ -1,10 +1,13 @@ -# div --- do integer division +# intdiv --- do integer division # # Arnold Robbins, arnold@skeeve.com, Public Domain # July, 2014 +# +# Name changed from div() to intdiv() +# April, 2015 -function div(numerator, denominator, result) +function intdiv(numerator, denominator, result) { split("", result) diff --git a/awklib/eg/prog/pi.awk b/awklib/eg/prog/pi.awk index 3297beff..e1b5bc4f 100644 --- a/awklib/eg/prog/pi.awk +++ b/awklib/eg/prog/pi.awk @@ -10,7 +10,7 @@ BEGIN { for (m = digits * 4; m > 0; --m) { d = m * 2 + 1 x = pi * m - div(x, d, result) + intdiv(x, d, result) pi = result["quotient"] pi = pi + two } |