diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2017-10-01 22:21:02 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2017-10-01 22:21:02 +0300 |
| commit | e4f68191b510ea46eed8156630d4029cf7dffc8f (patch) | |
| tree | 3abed0d599691bf081fb64703a439a8a1cd254b5 /awklib | |
| parent | a168e61dfc53b7c69df577986ce25e0ee358f80a (diff) | |
| parent | 161ab89bfe117326be4452eaca2bd7b268cf4b08 (diff) | |
| download | egawk-e4f68191b510ea46eed8156630d4029cf7dffc8f.tar.gz egawk-e4f68191b510ea46eed8156630d4029cf7dffc8f.tar.bz2 egawk-e4f68191b510ea46eed8156630d4029cf7dffc8f.zip | |
Merge branch 'master' into feature/fix-comments
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 } |