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

m
m (→‎{{header|Perl 6}}: Style tweaks, minor enhancements, update list)
m (→‎{{header|Perl 6}}: Style tweaks)
Line 58:
:rawcontinue(),
:prop<categoryinfo>
)\
 
.map({ %( count => .<categoryinfo><pages> || 0,
lang => .<title>.subst(/^'Category:' (.+) ' User'/, ->$/ {$0}) ) })\
 
.sort( { -.<count>, .<lang> } )\
 
.map( { last if .<count> < $minimum; display(.<count>, .<lang>) } );
Line 87:
}
 
sub uri-query-string (*%fields) { %fields.map({ "{.key}={uri-escape .value}" }).join("&") }</lang>
join '&', %fields.map: { "{.key}={uri-escape .value}" }
}</lang>
 
{{out}}
10,333

edits