From ad4cc0e6599c34423a3aee073741595cbaf8c1eb Mon Sep 17 00:00:00 2001 From: Stephen Lynn Date: Sat, 3 Jun 2023 11:28:47 +0800 Subject: fix ch-2 --- challenge-219/steve-g-lynn/perl/ch-2.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- cgit