From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Sat, 3 Dec 2022 06:10:22 +0000 (+0100)
Subject: Day 3: use $_ everywhere
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?p=aoc.git;a=commitdiff_plain;h=d013df91b9313dcfdae17d39bfdc53fe930b2ca1

Day 3: use $_ everywhere
---

diff --git a/2022/05.pl b/2022/05.pl
index a7e1f9d..5002bf9 100755
--- a/2022/05.pl
+++ b/2022/05.pl
@@ -8,9 +8,9 @@ my $sum;
 while (<>) {
 	chomp;
 	substr($_, length()/2, 0) = ' ';
-	my ($c) = /(.)\S*\s\S*\1/;
-	$sum += $c =~ /[A-Z]/
-		? ord($c) - ord('A') + 27
-		: ord($c) - ord('a') + 1; 
+	s/\A\S*(.)\S*\s\S*\1\S*\z/$1/;
+	$sum += /[A-Z]/
+		? ord() - ord('A') + 27
+		: ord() - ord('a') + 1; 
 }
 say $sum;
diff --git a/2022/06.pl b/2022/06.pl
index 84ea0fb..39b07ae 100755
--- a/2022/06.pl
+++ b/2022/06.pl
@@ -11,9 +11,9 @@ while (<>) {
 	next if $. % 3;
 	$_ = $s;
 	$s = '';
-	my ($c) = /(.)\S*\s\S*\1\S*\s\S*\1/;
-	$sum += $c =~ /[A-Z]/
-		? ord($c) - ord('A') + 27
-		: ord($c) - ord('a') + 1; 
+	s/\A\S*(.)\S*\s\S*\1\S*\s\S*\1\S*\s?\z/$1/;
+	$sum += /[A-Z]/
+		? ord() - ord('A') + 27
+		: ord() - ord('a') + 1; 
 }
 say $sum;