From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Sat, 3 Dec 2022 06:02:16 +0000 (+0100)
Subject: Day 3: regexp-based solution
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=ceaf4a9778015b8d3779160af22ebc2ca686a320;p=aoc.git

Day 3: regexp-based solution
---

diff --git a/2022/05.pl b/2022/05.pl
index 1a78799..a7e1f9d 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) = ' ';
+	my ($c) = /(.)\S*\s\S*\1/;
+	$sum += $c =~ /[A-Z]/
+		? ord($c) - ord('A') + 27
+		: ord($c) - ord('a') + 1; 
 }
 say $sum;
diff --git a/2022/06.pl b/2022/06.pl
index 31b1327..84ea0fb 100755
--- a/2022/06.pl
+++ b/2022/06.pl
@@ -5,16 +5,15 @@ use strict;
 use experimental 'multidimensional';
 
 my $sum;
-chomp (my @bags = <>);
-
-while (my @a = splice(@bags, 0, 3)) {
-	for my $c (split(//, $a[0])) {
-		next if $a[1] !~ /$c/;
-		next if $a[2] !~ /$c/;
-		$sum += ord($c) - ord('A') + 27 if $c =~ /[A-Z]/;
-		$sum += ord($c) - ord('a') +  1 if $c =~ /[a-z]/;
-		say $c;
-		last;
-	}
+my $s;
+while (<>) {
+	$s .= $_;
+	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; 
 }
 say $sum;