Rosetta Code/Rank languages by number of users: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: add some timing information) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: use better variable names to make it easier to follow logic) |
||
Line 49: | Line 49: | ||
prop => 'categoryinfo')\ |
prop => 'categoryinfo')\ |
||
.map({ .<categoryinfo><pages> || 0, |
.map({ %( count => .<categoryinfo><pages> || 0, |
||
.<title>.subst(/^'Category:' (.+) ' User'/, ->$/ {$0}) })\ |
lang => .<title>.subst(/^'Category:' (.+) ' User'/, ->$/ {$0}) ) })\ |
||
.sort( { - |
.sort( { -.<count>, .<lang> } )\ |
||
.map( { last if |
.map( { last if .<count> < $minimum; display(.<count>, .<lang>) } ); |
||
say "========= elapsed: {(now - $start-time).round(.01)} seconds ========="; |
say "========= elapsed: {(now - $start-time).round(.01)} seconds ========="; |