Rosetta Code/Rank languages by popularity: Difference between revisions

(PascalABC.NET)
Line 3,685:
var s := wc.DownloadString('https://rosettacode.org/wiki/Special:Categories?limit=5000');
s.Matches('([^><]+)</a>.+\(([\d,]+) member')
.Select(x -> KV(x.Groups[1].Value,x.Groups[2].Value.Replace(',','').ToInteger))
.Where(x -> not x[0].Key.StartsWith('Pages'))
.OrderByDescending(pair -> pair[1].Value).Numerate.Take(10)
.PrintLines(x -> $'Rank: {x[0],3} ({x[1][1].Value} entries) {x[1][0].Key}')
end.
</syntaxhighlight>
234

edits