2019/15.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 chomp (my $data = <>);
   6
   7 my @min;
   8 my $count = 25*6;
   9 for my $l ($data =~ /.{$count}/g) {
  10         say $l;
  11         my @x;
  12         $x[0] = () = $l =~ /0/g;
  13         $x[1] = () = $l =~ /1/g;
  14         $x[2] = () = $l =~ /2/g;
  15         @min = @x
  16                 if !defined $min[0] || $min[0] > $x[0];
  17 }
  18
  19 say $min[1] * $min[2];