2023/07.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.38;
   4
   5 my $sum;
   6 while (<>) {
   7         my ($have, $win) = /: (.*) \| (.*)/;
   8         my %is_win = map { $_ => 1 } ($win =~ /(\d+)/g);
   9         my $count = grep { $is_win{$_} } ($have =~ /(\d+)/g);
  10         $sum += 1 << ($count-1) if $count;
  11 }
  12 say $sum;