Day 4 part 2: after waking up

diff --git a/2022/08.pl b/2022/08.pl
index c7f9131618fea951c15851d58f2e5d1aa42f9481..8c7021426529be5262b36abe81b54d9578feb767 100755 (executable)
--- a/2022/08.pl
+++ b/2022/08.pl
@@ -7,10 +7,7 @@ use experimental 'multidimensional';
 my $count;
 while (<>) {
        my @r = /\d+/g;
-       $count++ if $r[0] <= $r[2] && $r[1] >= $r[3]
-               || $r[0] >= $r[2] && $r[1] <= $r[3]
-               || $r[0] <= $r[2] && $r[1] >= $r[2]
-               || $r[0] <= $r[3] && $r[1] >= $r[3];
+       $count++ if $r[0] <= $r[3] && $r[1] >= $r[2];
 }
 say $count;