RosettaCodeData/Task/Word-frequency/PascalABC.NET/word-frequency.pas

4 lines
120 B
ObjectPascal

##
ReadAllText('135-0.txt').ToLower.MatchValues('\w+').EachCount
.OrderByDescending(w -> w.Value).Take(10).PrintLines