05.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 my ($c, @s);
   6
   7 while (<>) {
   8         $c++;
   9         chomp;
  10         my $i = 0;
  11         for my $b (split//) {
  12                 $s[$i++] += $b;
  13         }
  14 }
  15
  16 my ($e, $g);
  17 for my $b (@s) {
  18         $e .= ($b > $c/2) ? '1' : '0';
  19         $g .= ($b > $c/2) ? '0' : '1';
  20 }
  21
  22 say oct("0b$e")*oct("0b$g");
  23