From d17951d1fd99fc1ed82cb900b8fff7091971e59b Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Thu, 30 Jan 2014 00:27:24 +0200
Subject: [PATCH] Update standings

---
 lib/Gruntmaster/Page/St.pm | 35 ++++++++++++++++++++++++++++++-----
 1 file changed, 30 insertions(+), 5 deletions(-)

diff --git a/lib/Gruntmaster/Page/St.pm b/lib/Gruntmaster/Page/St.pm
index b50490c..27f3a9c 100644
--- a/lib/Gruntmaster/Page/St.pm
+++ b/lib/Gruntmaster/Page/St.pm
@@ -24,20 +24,45 @@ use constant TEMPLATES => {
 HTML
 };
 
+use constant LEVEL_VALUES => {
+	beginner => 100,
+	easy => 250,
+	medium => 500,
+	hard => 1000,
+};
+
+sub calc_score{
+	my ($user, $problem, $date, $tries) = @_;
+	my $mxscore = LEVEL_VALUES->{problem_level($problem)};
+	my $score = $mxscore;
+	my $timetaken = $date - get_open($problem, $user);
+	$timetaken = 1 if $timetaken < 1;
+	$timetaken = 150 + int rand 150 if $timetaken > 3600;
+	$score = (3600 - $timetaken) / 3600 * $score;
+	$score -= $tries / 10 * $mxscore;
+	$score = $mxscore * 3 / 10 if $score < $mxscore * 3 / 10;
+	int $score
+}
+
 sub _generate{
 	my ($self, $htc, $path, $lang) = @_;
 
 	$path =~ m,^(?:ct/([^/]+)/)?,;
-	local $Gruntmaster::Data::contest = $1;
+	local $Gruntmaster::Data::contest = $1 if $1;
 
 	my @problems = problems;
 	@problems = sort @problems;
-	my %scores;
+	my (%scores, %tries);
 	for (1 .. jobcard) {
-		if (job_result_text =~ m/^(\d+)/) {
-			$scores{job_user()}{job_problem()} = $1;
+		if ($Gruntmaster::Data::contest) {
+			$tries{job_user()}{job_problem()}++;
+			$scores{job_user()}{job_problem()} = job_result() ? 0 : calc_score (job_user(), job_problem(), job_date(), $tries{job_user()}{job_problem()});
 		} else {
-			$scores{job_user()}{job_problem()} = job_result() ? 0 : 100;
+			if (job_result_text =~ m/^(\d+)/) {
+				$scores{job_user()}{job_problem()} = $1;
+			} else {
+				$scores{job_user()}{job_problem()} = job_result() ? 0 : 100;
+			}
 		}
 	}
 
-- 
2.39.2