From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Sat, 6 Dec 2025 10:20:09 +0000 (+0100)
Subject: Day 06: perlish solution for Part 1
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=11050d9ec52d87ee644cb6939c20eaff7c264ec6;p=aoc.git

Day 06: perlish solution for Part 1
---

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;