From b304091012fd58ee9a0e5e9df7ff9a8c93ca8403 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Fri, 12 Dec 2025 06:49:35 +0100
Subject: [PATCH] Day 12: look at the input

---
 2025/23.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 2025/23.pl

diff --git a/2025/23.pl b/2025/23.pl
new file mode 100755
index 0000000..374a385
--- /dev/null
+++ b/2025/23.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use v5.42;
+use List::Util qw(sum);
+
+my $sum;
+
+while (<>) {
+	next if !/x/;
+	my ($w, $h, @nshapes) = /\d+/g;
+
+	$w = int($w/3);
+	$h = int($h/3);
+	my $s = sum @nshapes;
+	$sum++ if $s <= $w*$h;
+}
+
+say $sum;
-- 
2.47.3