]>
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/;
11 our $VERSION = '5999-TRIAL';
13 ##################################################
16 no warnings qw
/numeric/;
17 get_logger
->trace("Judging results: @_");
18 my $points = sum
0, grep { !ref } @_;
19 $points == 100 ?
(result
=> AC
, result_text
=> 'Accepted') : (result
=> REJ
, result_text
=> "$points points", points
=> $points)
This page took 0.041264 seconds and 5 git commands to generate.