diff options
| -rwxr-xr-x | challenge-219/steve-g-lynn/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-219/steve-g-lynn/perl/ch-2.pl b/challenge-219/steve-g-lynn/perl/ch-2.pl index b6e80f2598..fd27d87d8d 100755 --- a/challenge-219/steve-g-lynn/perl/ch-2.pl +++ b/challenge-219/steve-g-lynn/perl/ch-2.pl @@ -67,7 +67,7 @@ sub travel_expenditure { if ($days($ctr:($ctr+$days_forward))->sum >= $weekly_cutoff) { $weekly_card++; $days_paid_weekly += $days($ctr:($ctr+$days_forward))->sum; - $ctr += $days_forward; + $ctr += $days_forward+1; } else { $ctr += 1; |