diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-06-03 11:28:47 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2023-06-03 11:28:47 +0800 |
| commit | ad4cc0e6599c34423a3aee073741595cbaf8c1eb (patch) | |
| tree | f735470ebda3aa3d00c8997bd1b2f09fea7de1ad | |
| parent | 61ec2bc8bbe16e41377099a66aeeaab7e35685ab (diff) | |
| download | perlweeklychallenge-club-ad4cc0e6599c34423a3aee073741595cbaf8c1eb.tar.gz perlweeklychallenge-club-ad4cc0e6599c34423a3aee073741595cbaf8c1eb.tar.bz2 perlweeklychallenge-club-ad4cc0e6599c34423a3aee073741595cbaf8c1eb.zip | |
fix ch-2
| -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; |