}
$contests{$_->rawowner}++ for $self->contest_statuses->all;
- [ sort { $b->{solved} <=> $a->{solved} or $b->{attempted} <=> $a->{attempted} } ## no critic (ProhibitReverseSort)
- grep { $_->{solved} || $_->{attempted} } map {
+ my @users = sort { $b->{solved} <=> $a->{solved} or $b->{attempted} <=> $a->{attempted} } ## no critic (ProhibitReverseSort)
+ map {
my $id = $_->id;
+{ $_->get_columns,
solved => ($solved{$id} // 0),
attempted => ($attempted{$id} // 0),
contests => ($contests{$id} // 0) }
- } $rs->all ]
+ } $rs->all;
+ @users = @users[0 .. 199] if @users > 200;
+ \@users
}
sub user_entry {