Blame awklib/eg/lib/intdiv0.awk
|
Packit |
575503 |
# intdiv0 --- do integer division
|
|
Packit |
575503 |
|
|
Packit |
575503 |
#
|
|
Packit |
575503 |
# Arnold Robbins, arnold@skeeve.com, Public Domain
|
|
Packit |
575503 |
# July, 2014
|
|
Packit |
575503 |
#
|
|
Packit |
575503 |
# Name changed from div() to intdiv()
|
|
Packit |
575503 |
# April, 2015
|
|
Packit |
575503 |
#
|
|
Packit |
575503 |
# Changed to intdiv0()
|
|
Packit |
575503 |
# April, 2016
|
|
Packit |
575503 |
|
|
Packit |
575503 |
function intdiv0(numerator, denominator, result)
|
|
Packit |
575503 |
{
|
|
Packit |
575503 |
split("", result)
|
|
Packit |
575503 |
|
|
Packit |
575503 |
numerator = int(numerator)
|
|
Packit |
575503 |
denominator = int(denominator)
|
|
Packit |
575503 |
result["quotient"] = int(numerator / denominator)
|
|
Packit |
575503 |
result["remainder"] = int(numerator % denominator)
|
|
Packit |
575503 |
|
|
Packit |
575503 |
return 0.0
|
|
Packit |
575503 |
}
|