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;