Anagrams: Difference between revisions

=={{header|PascalABC.NET}}==

<syntaxhighlight lang="delphi">

begin

var s := System.Net.WebClient.Create.DownloadString('http://wiki.puzzlers.org/pub/wordlists/unixdict.txt');

var words := s.Split;

var groups := words.GroupBy(word -> word.Order.JoinToString);

var maxCount := groups.Max(gr -> gr.Count);

groups.Where(gr -> gr.Count = maxCount).PrintLines;

end.

</syntaxhighlight>

{{out}}

<pre>

[abel,able,bale,bela,elba]

[alger,glare,lager,large,regal]

[angel,angle,galen,glean,lange]

[caret,carte,cater,crate,trace]

[elan,lane,lean,lena,neal]

[evil,levi,live,veil,vile]

</pre>