Day 7: a bit polished version

[aoc.git] / 2023 / 13.pl

diff --git a/2023/13.pl b/2023/13.pl
index b5bd85909ff94115adb5991dfe76ff091f87e00b..acba42cfcbe2eec8068e2e1310b409ce5263a56f 100755 (executable)
--- 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;