Day 05: many conditions

diff --git a/2025/09.pl b/2025/09.pl
new file mode 100755 (executable)
index 0000000..6e419ba
--- /dev/null
+++ b/2025/09.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+
+use v5.42;
+
+my @ranges;
+while (<>) {
+       last if /^$/;
+       push @ranges, [ /\d+/g ];
+}
+
+my $sum;
+while (<>) {
+       for my $r (@ranges) {
+               next if $_ < $r->[0] || $_ > $r->[1];
+               $sum++;
+               last;
+       }
+}
+say $sum;

diff --git a/2025/10.pl b/2025/10.pl
new file mode 100755 (executable)
index 0000000..0b8d2e6
--- /dev/null
+++ b/2025/10.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+
+use v5.42;
+use List::Util qw(max);
+
+my @ranges;
+while (<>) {
+       last if /^$/;
+       push @ranges, [ /\d+/g ];
+}
+
+my $sum;
+my $prev;
+for my $r (sort { $a->[0] <=> $b->[0] } @ranges) {
+       $prev //= $r->[0];
+       next if $r->[1] < $prev;
+       $sum += $r->[1] - max($r->[0], $prev) + 1;
+       $prev = max($r->[1]+1, $prev);
+}
+
+say $sum;