aoc2022

Advent of Code 2022 solutions in Perl.
git clone git://git.samirparikh.com/aoc2022
Log | Files | Refs | README

commit 433589166a88017206072ddd1423476fb9162787
parent 253bfeeb273a79d058f551ea78dd75184027d949
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri, 23 Dec 2022 20:16:48 +0000

copy/pasted day04.pl back into file after it was accidentally deleted

Diffstat:
Mday04/day04.pl | 5+++--
1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/day04/day04.pl b/day04/day04.pl @@ -11,8 +11,9 @@ chomp( my $input = do { local $/; <> } ); my $part1 = 0; my $part2 = 0; -foreach ( split /\n/, $input ) { - my ( $x1, $y1, $x2, $y2 ) = m/(\d+)-(\d+),(\d+)-(\d+)/; +foreach my $pair ( split /\n/, $input ) { + my ( $x1, $y1, $x2, $y2 ) = + $pair =~ m/(\d+)-(\d+),(\d+)-(\d+)/; $part1++ if ( ( $x1 >= $x2 && $y1 <= $y2 ) || ( $x2 >= $x1 && $y2 <= $y1 ) ); $part2++ if ( ( $y2 >= $x1 && $y2 <= $y1 ) ||