Day 06: perlish solution for Part 1

diff --git a/2025/11.pl b/2025/11.pl
index 61233d66f03a1dc5e9dcf9113cb6d0e1d98f0d45..7d52e3edc0f840a13a83dee19a33755e7c5564de 100755 (executable)
--- a/2025/11.pl
+++ b/2025/11.pl
@@ -1,23 +1,13 @@
 #!/usr/bin/perl -w
 
 use v5.42;
-use List::Util qw(sum);
 
 my @map = map { [ /\S+/g ] } <>;
 my $xmax = $#{ $map[0] };
 my $ymax = $#map;
 
-my @sums;
-
+my $sum;
 for my $x (0 .. $xmax) {
-       $sums[$x] = $map[$ymax][$x] eq '+' ? 0 : 1;
-       for my $y (0 .. $ymax-1) {
-               if ($map[$ymax][$x] eq '+') {
-                       $sums[$x] += $map[$y][$x];
-               } else {
-                       $sums[$x] *= $map[$y][$x];
-               }
-       }
+       eval '$sum+='.join($map[$ymax][$x], map { $map[$_][$x] } 0 .. $ymax-1);
 }
-
-say sum @sums;
+say $sum;