lib/Gruntmaster/Page/St.pm

   1 package Gruntmaster::Page::St;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use Gruntmaster::Page::Base st => 'Standings';
   7 our @ISA = qw/Gruntmaster::Page::Base/;
   8 our $VERSION = '0.001';
   9
  10 use constant TEMPLATES => {
  11         en => <<'HTML',
  12 <table border>
  13 <thead>
  14 <tmpl_if problems><tr><th>Username<tmpl_loop problems><th><tmpl_var _></tmpl_loop><th>Total
  15 <tmpl_else><tr><th>Username<th>Score
  16 </tmpl_if>
  17
  18 <tbody>
  19 <tmpl_loop st><tr><td><tmpl_var user>
  20 <tmpl_if problems><tmpl_loop scores><td><tmpl_var _>
  21 </tmpl_loop></tmpl_if><td><tmpl_var score>
  22 </tmpl_loop>
  23 </table>
  24 HTML
  25 };
  26
  27 use constant LEVEL_VALUES => {
  28         beginner => 100,
  29         easy => 250,
  30         medium => 500,
  31         hard => 1000,
  32 };
  33
  34 sub calc_score{
  35         my ($user, $problem, $date, $tries) = @_;
  36         my $mxscore = LEVEL_VALUES->{problem_level($problem)};
  37         my $score = $mxscore;
  38         my $timetaken = $date - get_open($problem, $user);
  39         $timetaken = 1 if $timetaken < 1;
  40         $timetaken = 150 + int rand 150 if $timetaken > 3600;
  41         $score = (3600 - $timetaken) / 3600 * $score;
  42         $score -= $tries / 10 * $mxscore;
  43         $score = $mxscore * 3 / 10 if $score < $mxscore * 3 / 10;
  44         int $score
  45 }
  46
  47 sub _generate{
  48         my ($self, $htc, $path, $lang) = @_;
  49
  50         $path =~ m,^(?:ct/([^/]+)/)?,;
  51         local $Gruntmaster::Data::contest = $1 if $1;
  52
  53         my @problems = problems;
  54         @problems = sort @problems;
  55         my (%scores, %tries);
  56         for (1 .. jobcard) {
  57                 if ($Gruntmaster::Data::contest) {
  58                         $tries{job_user()}{job_problem()}++;
  59                         $scores{job_user()}{job_problem()} = job_result() ? 0 : calc_score (job_user(), job_problem(), job_date(), $tries{job_user()}{job_problem()});
  60                 } else {
  61                         if (job_result_text =~ m/^(\d+)/) {
  62                                 $scores{job_user()}{job_problem()} = $1;
  63                         } else {
  64                                 $scores{job_user()}{job_problem()} = job_result() ? 0 : 100;
  65                         }
  66                 }
  67         }
  68
  69         my @st = sort { $b->{score} <=> $a->{score} } map {
  70                 my $user = $_;
  71                 +{
  72                         user => $user,
  73                         score => sum (values $scores{$user}),
  74                         scores => [map { $scores{$user}{$_} // '-'} @problems],
  75                 }
  76         } keys %scores;
  77         $htc->param(problems => [map { problem_name } @problems ]) if $Gruntmaster::Data::contest;
  78         $htc->param(st => \@st);
  79 }
  80
  81 1