epd/lp.pl

   1 # scoring script for LAPUCE2 test
   2 if (@ARGV) {
   3   open(DATA,@ARGV[0]) || die "Can't open file " . $_;
   4   $move = "";
   5   $time = 0;
   6   $total_score = 0;
   7   $num_correct = 0;
   8   while (<DATA>)
   9   {
  10      if (/^ply/)
  11      {
  12         split;
  13         $newmove = @_[2];
  14         $newtime = @_[3];
  15         if ($newmove ne $move)
  16         {
  17           $move = $newmove;
  18           $time = $newtime;
  19         }
  20      }
  21      elsif (/^search:/)
  22      {
  23         if (/correct/)
  24         {
  25            $num_correct++;
  26 #           print "correct - time = " . $time . "\n";
  27            $score = 0;
  28            if ($time <= 9)
  29            {
  30              $score = 30;
  31            }
  32            elsif ($time <= 29)
  33            {
  34              $score = 25;
  35            }
  36            elsif ($time <= 89)
  37            {
  38              $score = 20;
  39            }
  40            elsif ($time <= 179)
  41            {
  42              $score = 15;
  43            }
  44            elsif ($time <= 389)
  45            {
  46              $score = 10;
  47            }
  48            else
  49            {
  50              $score = 5;
  51            }
  52            $total_score += $score;
  53
  54            $time = 0;
  55            $move = "";
  56         }
  57      }
  58   }
  59   print $num_correct . " correct.\n";
  60 #  print "time = " . $total_time . "\n";
  61   print "rating = " . (1900 + $total_score) . "\n";
  62 }