¿Cuál es la mejor técnica para el manejo de los cálculos de dólar americano en Perl?

Question

¿Cuál es la mejor técnica para el manejo de los cálculos de dólar americano en Perl?

Sobre todo: las siguientes necesidades para trabajar:

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

Answer 1

Matemáticas :: Moneda .

Actualizado:

Si se asume que todos los pagos que suman el equilibrio es deseable, me ocurrió con la siguiente secuencia de comandos basado en los puntos señalados por 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;
}

Salida:

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

Answer 2

Una técnica común es hacer todos los cálculos en centavos enteros , a continuación, convertir a dólares y centavos para la salida. Por lo que su saldo de $ 10 se representa por 1000 (centavos), y dividiendo por tres da 333 o $ de 3.33.

Sin embargo, si desea dividir un pago de $ 10 mediante tres, usted necesitará una cierta manera de terminar con los pagos de $ 3,33, $ 3,33, y $ 3,34 . Esto será más hasta su lógica de negocio y reglas de aplicación que las funciones aritméticas de su idioma.

Answer 3

utilizar Matemáticas :: divisas;

No reinventar la rueda es una buena cosa:)