2023/03.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.38;
   4 use List::Util qw(max);
   5
   6 my $sum;
   7 while (<>) {
   8         my ($id) = /(\d+): /;
   9         $sum += $id if
  10                 max(/ (\d+) red/g) <= 12
  11                 && max(/ (\d+) green/g) <= 13
  12                 && max(/ (\d+) blue/g) <= 14;
  13 }
  14
  15 say $sum;