43.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 local $/ = "\n\n";
   6
   7 my @pl1 = <> =~ /^(\d+)$/gxms;
   8 my @pl2 = <> =~ /^(\d+)$/gxms;
   9 print "pl2=@pl2.\n";
  10
  11 while (@pl1 && @pl2) {
  12         my $p1 = shift @pl1;
  13         my $p2 = shift @pl2;
  14         print "$p1 vs $p2\n";
  15         if ($p1 > $p2) {
  16                 push @pl1, $p1, $p2;
  17         } else {
  18                 push @pl2, $p2, $p1;
  19         }
  20 }
  21
  22 @pl1 = @pl2 if @pl2;
  23 my $sum = 0;
  24 while (@pl1) {
  25         $sum += +$pl1[0] * @pl1;
  26         shift @pl1;
  27 }
  28 print "sum=$sum\n";