user avatar
user avatar
user avatar
mpapec
  • Member for 8 years, 8 months
  • Last seen more than 1 year ago
Stats
949
reputation
157k
reached
5
answers
21
questions
Loading…
About

Users with best score/answer ratio

perl -MpQuery -MData::Dumper -e '*Q = *pQuery;
print Dumper map [
    sort { $b->{ratio} <=> $a->{ratio} }
    map {
        @h{qw(s a u)} = map Q($_)->text,
          @{ Q($_)->find("td") };
        s/k// and $_ *= 1000 for @h{qw(s a)};
        $h{ratio} = $h{s}/$h{a};
        +{%h};
    } @{ Q($_)->find("tr") }
], @{ Q(pop)->find(".fl") }[0,1];
' http://stackoverflow.com/tags/perl/topusers
2
gold badges
9
silver badges
21
bronze badges
8
Score
2
Posts
8
Posts %
2
Score
10
Posts
38
Posts %
2
Score
3
Posts
12
Posts %
2
Score
3
Posts
12
Posts %
1
Score
4
Posts
15
Posts %
1
Score
2
Posts
8
Posts %
Top posts
View all questions and answers
question
6
Dec 6, 2013
question
6
Jan 4, 2014
question
6
Jan 9, 2014
question
5
Dec 13, 2013
question
4
Jan 4, 2014
question
4
Aug 8, 2016
question
3
Aug 18, 2016