2022/06.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.36;
   4 use strict;
   5 use experimental 'multidimensional';
   6
   7 my $sum;
   8 chomp (my @bags = <>);
   9
  10 while (my @a = splice(@bags, 0, 3)) {
  11         for my $c (split(//, $a[0])) {
  12                 next if $a[1] !~ /$c/;
  13                 next if $a[2] !~ /$c/;
  14                 $sum += ord($c) - ord('A') + 27 if $c =~ /[A-Z]/;
  15                 $sum += ord($c) - ord('a') +  1 if $c =~ /[a-z]/;
  16                 say $c;
  17                 last;
  18         }
  19 }
  20 say $sum;