aoc2022

commit 253bfeeb273a79d058f551ea78dd75184027d949
parent 45ef31326125ef13f18beac424ac9ca92e018133
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Thu, 22 Dec 2022 16:10:48 +0000

clean up code

Diffstat:
M
day04/day04.pl
 | 
5
++---

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