]>
iEval git - gruntmaster-daemon.git/blob - lib/Gruntmaster/Daemon/Judge/Points.pm
1 package Gruntmaster
::Daemon
::Judge
::Points
;
7 use Gruntmaster
::Daemon
::Constants qw
/AC REJ/;
8 use List
::Util qw
/sum/;
9 use Log
::Log4perl qw
/get_logger/;
10 our $VERSION = '0.001';
12 ##################################################
15 no warnings qw
/numeric/;
16 get_logger
->trace("Judging results: @_");
17 my $points = sum
0, grep { !ref } @_;
18 $points == 100 ?
(result
=> AC
, result_text
=> 'Accepted') : (result
=> REJ
, result_text
=> "$points points", points
=> $points)
This page took 0.050254 seconds and 4 git commands to generate.