GOLANG => 'go',
GOLFSCRIPT => 'gs',
HASKELL => 'hs',
+ OBERON => 'm',
MONO => 'cs',
JAVA => 'java',
PASCAL => 'pas',
},
sub (/st/:contest) {
- my @pb = map { [$_->{id}, $_->{name}] } @{problem_list contest => $_{contest}};
+ my @pb = map { [$_->{id}, $_->{name}] } sort { $a->{value} <=> $b->{value} } @{problem_list contest => $_{contest}};
response st => 'Standings', {problems => \@pb, st => standings $_{contest}}, 10
},