#!/usr/bin/perl

if ($#ARGV<2) {
    die "prestam <interés tanto por uno> <número de perídos> <capital>\n";
}
$i = $ARGV[0];
$n = $ARGV[1];
$CC = $ARGV[2];
$~ = FORMAT_TOP;
write;
$~ = FORMAT_LINE;
write;
$c = $CC * $i / (1- (1+$i)**(-$n));
$~ = FORMAT_LINE;
for $t (1..$n){
    $I = $CC*$i;
    $A = $c-$I;
    $AA += $A;
    $CC -= $A;
    write;
}

format FORMAT_TOP=
Préstamo de @##########.## durante @##### perídos al interés @#####.##%
               $CC,              $n,                        $i*100

Período   Cuota   Intereses Amortización  Amortzación Acum.  Capital Pendiente
------------------------------------------------------------------------------
.
format FORMAT_LINE=
@>>> @#######.## @#######.## @#######.##  @#############.##  @#############.##
$t,     $c,          $I,         $A,            $AA,              $CC
.


__END__