perl - 在 Perl 中处理美元计算的最佳技术是什么？

Question

在 Perl 中处理美元计算的最佳技术是什么？

特别是:以下需要工作:

$balance = 10;
$payment = $balance / 3; # Each payment should be 3.33. How best to round amount?
$balance -= $payment * 3;
# assert: $balance == .01

Answer 1

一种常见的技术是以整数美分进行所有计算，然后转换为美元和美分以进行输出。因此，您的 10 美元余额将用 1000(美分)表示，除以 3 得到 333，即 3.33 美元。

但是，如果您想将 10 美元的付款除以三，您将需要某种方式来最终得到 3.33 美元、3.33 美元和 的付款。 3.34 美元 .这将更多地取决于您的应用程序逻辑和业务规则，而不是您的语言的算术特性。