X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=2022%2F05.pl;h=5002bf9dd103d0b4c6e71fb59394d1bf1cd2f33d;hb=78136e93bf5e13aabceb8834ab3748187ee74eee;hp=1a787996af13a87a422ca2f928406a7a406dd300;hpb=4e8c8d806887ee71ff62d737aaf703f415b5336d;p=aoc.git

diff --git a/2022/05.pl b/2022/05.pl
index 1a78799..5002bf9 100755
--- a/2022/05.pl
+++ b/2022/05.pl
@@ -7,14 +7,10 @@ use experimental 'multidimensional';
 my $sum;
 while (<>) {
 	chomp;
-	my $len = length;
-	my ($l, $r) = (substr($_, 0, $len/2), substr($_, $len/2));
-	for my $c (split(//, $l)) {
-		next if $r !~ /$c/;
-		$sum += ord($c) - ord('A') + 27 if $c =~ /[A-Z]/;
-		$sum += ord($c) - ord('a') +  1 if $c =~ /[a-z]/;
-		say $c;
-		last;
-	}
+	substr($_, length()/2, 0) = ' ';
+	s/\A\S*(.)\S*\s\S*\1\S*\z/$1/;
+	$sum += /[A-Z]/
+		? ord() - ord('A') + 27
+		: ord() - ord('a') + 1; 
 }
 say $sum;