diff options
Diffstat (limited to 'awklib')
| -rw-r--r-- | awklib/eg/lib/intdiv.awk | 23 | ||||
| -rw-r--r-- | awklib/eg/prog/anagram.awk | 2 | ||||
| -rw-r--r-- | awklib/eg/prog/pi.awk | 2 |
3 files changed, 2 insertions, 25 deletions
diff --git a/awklib/eg/lib/intdiv.awk b/awklib/eg/lib/intdiv.awk deleted file mode 100644 index 9de5978e..00000000 --- a/awklib/eg/lib/intdiv.awk +++ /dev/null @@ -1,23 +0,0 @@ -# intdiv0 --- do integer division - -# -# Arnold Robbins, arnold@skeeve.com, Public Domain -# July, 2014 -# -# Name changed from div() to intdiv() -# April, 2015 -# -# Changed to intdiv0() -# April, 2016 - -function intdiv0(numerator, denominator, result) -{ - split("", result) - - numerator = int(numerator) - denominator = int(denominator) - result["quotient"] = int(numerator / denominator) - result["remainder"] = int(numerator % denominator) - - return 0.0 -} diff --git a/awklib/eg/prog/anagram.awk b/awklib/eg/prog/anagram.awk index df2768d9..4c2ce1fd 100644 --- a/awklib/eg/prog/anagram.awk +++ b/awklib/eg/prog/anagram.awk @@ -9,7 +9,7 @@ # - split() with "" as separator splits out individual characters # - asort() and asorti() functions # -# See http://savannah.gnu.org/projects/gawk. +# See https://savannah.gnu.org/projects/gawk. # # Arnold Robbins # arnold@skeeve.com diff --git a/awklib/eg/prog/pi.awk b/awklib/eg/prog/pi.awk index e1b5bc4f..91060db9 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 - intdiv(x, d, result) + intdiv0(x, d, result) pi = result["quotient"] pi = pi + two } |