2022/03.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 += 1 if /X/;
  11         $sum += 2 if /Y/;
  12         $sum += 3 if /Z/;
  13
  14         $sum += 3 if /A X/;
  15         $sum += 3 if /B Y/;
  16         $sum += 3 if /C Z/;
  17
  18         $sum += 6 if /A Y/;
  19         $sum += 6 if /B Z/;
  20         $sum += 6 if /C X/;
  21 }
  22
  23 say $sum;
  24