7 Usage: effective_rate.pl <advertised_rate> <days_between_interest_credit>
15 my $interest_period = shift;
17 my $daily_rate = $rate / 365.0;
20 for (my $day=1; $day <= 365.0; $day++) {
21 $limbo += ($daily_rate/100.0) * $value;
22 if ($day % $interest_period == 0) {
29 return 100 * ($value - 1.0);
33 my $interest_period = shift;
35 my $real_rate = compound_rate($rate, $interest_period);
37 printf "Compound rate %.2f\n", $real_rate;