Rosetta Code/Rank languages by number of users: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: add some timing information)
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( { -$_[0], $_[1] } )\
.sort( { -.<count>, .<lang> } )\


.map( { last if @_[0] < $minimum; display(|@_) } );
.map( { last if .<count> < $minimum; display(.<count>, .<lang>) } );


say "========= elapsed: {(now - $start-time).round(.01)} seconds =========";
say "========= elapsed: {(now - $start-time).round(.01)} seconds =========";