From 7243b12cd45da274dc836bea4dfa17b33b81b536 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Tue, 2 Dec 2025 06:37:51 +0100 Subject: [PATCH] Day 2: regex with backrefs --- 2025/03.pl | 11 +++++++++++ 2025/04.pl | 11 +++++++++++ 2 files changed, 22 insertions(+) create mode 100755 2025/03.pl create mode 100755 2025/04.pl diff --git a/2025/03.pl b/2025/03.pl new file mode 100755 index 0000000..9e4a966 --- /dev/null +++ b/2025/03.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl -w + +use v5.42; + +my $sum; +for my ($x, $y) (<> =~ /\d+/g) { + for ($x .. $y) { + $sum += $_ if /^(\d+)\1$/; + } +} +say $sum; diff --git a/2025/04.pl b/2025/04.pl new file mode 100755 index 0000000..36c4b97 --- /dev/null +++ b/2025/04.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl -w + +use v5.42; + +my $sum; +for my ($x, $y) (<> =~ /\d+/g) { + for ($x .. $y) { + $sum += $_ if /^(\d+)\1+$/; + } +} +say $sum; -- 2.47.3