X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=2023%2F13.pl;h=acba42cfcbe2eec8068e2e1310b409ce5263a56f;hb=8ddbceff25c1fb56111e738248e5e43fde487002;hp=b5bd85909ff94115adb5991dfe76ff091f87e00b;hpb=2dcd833e6a80764bbadc610aa2b55366c1cb1baf;p=aoc.git

diff --git a/2023/13.pl b/2023/13.pl
index b5bd859..acba42c 100755
--- a/2023/13.pl
+++ b/2023/13.pl
@@ -2,26 +2,19 @@
 
 use v5.38;
 
-my %cards;
-while (<>) {
-	chomp;
-	my ($card, $bid) = split /\s+/;
-	$cards{$card} = $bid;
-	say " $card => $bid $_ " . val($card);
-}
+my %cards = map { /(\S+)/g } <>;
 
 sub rank {
-	my $card = shift;
-	my @cards = split //, $card;
 	my %hist;
-	$hist{$_}++ for @cards;
-	return 1 if grep { $hist{$_} == 5 } @cards;
-	return 2 if grep { $hist{$_} == 4 } @cards;
-	return 3 if grep { $hist{$_} == 3 } @cards
-		and grep { $hist{$_} == 2 } @cards;
-	return 4 if grep { $hist{$_} == 3 } @cards;
-	return 5 if (grep { $hist{$_} == 2 } @cards) == 4;
-	return 6 if grep { $hist{$_} == 2 } @cards;
+	$hist{$_}++ for split //, shift;
+	my %rh;
+	$rh{$_}++ for values %hist;
+	return 1 if $rh{5};
+	return 2 if $rh{4};
+	return 3 if $rh{3} && $rh{2};
+	return 4 if $rh{3};
+	return 5 if $rh{2} && $rh{2} == 2;
+	return 6 if $rh{2};
 	return 7;
 }
 
@@ -31,11 +24,11 @@ sub val {
 	return rank($val).$val;
 }
 
-my $i = 1;
 my $sum;
+my $i;
 for my $card (sort { val($b) cmp val($a) } keys %cards) {
-	say "$card $i ", val($card);
-	$sum += $cards{$card} * $i++;
+	# say "$card $i ", val($card);
+	$sum += $cards{$card} * ++$i;
 }
 
 say $sum;