2022/04.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.36;
   4 use strict;
   5 use experimental 'multidimensional';
   6
   7 my $sum;
   8 while (<>) {
   9         chomp;
  10         $sum += 3 if /Y/;
  11         $sum += 6 if /Z/;
  12
  13         $sum += 3 if /A X/;
  14         $sum += 1 if /A Y/;
  15         $sum += 2 if /A Z/;
  16
  17         $sum += 1 if /B X/;
  18         $sum += 2 if /B Y/;
  19         $sum += 3 if /B Z/;
  20
  21         $sum += 2 if /C X/;
  22         $sum += 3 if /C Y/;
  23         $sum += 1 if /C Z/;
  24 }
  25
  26 say $sum;
  27