うに、最高の技術を取り扱いに米ドル計算Perl?
-
13-09-2019 - |
質問
うに、最高の技術を取り扱いに米ドル計算Perl?
特に:以下必要作品:
$balance = 10;
$payment = $balance / 3; # Each payment should be 3.33. How best to round amount?
$balance -= $payment * 3;
# assert: $balance == .01
解決
見 Math::通貨.
更新:
仮にすべてのお支払いが完了する追加のバランスであることが望ましいとされ、また以下のスクリプトに基づく のポイントによるGreg Hewgill:
#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw( sum );
my @balances = (10, 1, .50, 5, 7, 12, 3, 2, 8, 1012);
for my $balance (@balances) {
my @stream = get_payment_stream($balance, 3);
my $sum = sum @stream;
print "$balance : @stream : $sum\n";
}
sub get_payment_stream {
my ($balance, $installments) = @_;
$balance *= 100;
my $payment = int($balance / $installments);
$installments -= 1;
my $residual = $balance - int($payment * $installments);
my @stream = (($payment) x $installments, $residual);
return map { sprintf '%.2f', $_ / 100} @stream;
}
出力:
C:\Temp> p 10 : 3.33 3.33 3.34 : 10 1 : 0.33 0.33 0.34 : 1 0.5 : 0.16 0.16 0.18 : 0.5 5 : 1.66 1.66 1.68 : 5 7 : 2.33 2.33 2.34 : 7 12 : 4.00 4.00 4.00 : 12 3 : 1.00 1.00 1.00 : 3 2 : 0.66 0.66 0.68 : 2 8 : 2.66 2.66 2.68 : 8 1012 : 337.33 337.33 337.34 : 1012
他のヒント
1つの一般的な技術は、の整数セントの中のすべての計算を行う、出力のためのドルとセントに変換することです。だからあなたの$ 10残高は1000(セント)で表され、3で割る333、または$ 3.33与えられる。
あなたは3で$ 10の支払いを分割したい場合は、しかし、あなたはの$ 3.33 $ 3.33との $ 3.34の支払いで終わるためにいくつかの方法が必要になります。これはあなたの言語の算術機能よりも、アプリケーション・ロジックとビジネスルールまで以上になります。
数学::通貨を使用します。
車輪の再発明しないことは良いことです:)
所属していません StackOverflow