From 11050d9ec52d87ee644cb6939c20eaff7c264ec6 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Sat, 6 Dec 2025 11:20:09 +0100
Subject: [PATCH] Day 06: perlish solution for Part 1

---
 2025/11.pl | 16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

diff --git a/2025/11.pl b/2025/11.pl
index 61233d6..7d52e3e 100755
--- 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;
-- 
2.47.3