Select Code to Download

  1 use List::AllUtils qw/sum/;
  2 use Bit::Vector;
...
 24     print "$s $i $str\n";
 25 };

2 00011 AB
2 00101 AC
...
2 10100 CE
2 11000 DE