Anagrams: Difference between revisions

=={{header|Pointless}}==

<lang pointless>output =

readFileLines("unixdict.txt")

|> reduce(logWord, {})

|> vals

|> getMax

|> printLines

logWord(dict, word) =

(dict with $[chars] = [word] ++ getDefault(dict, [], chars))

where chars = sort(word)

getMax(groups) =

groups |> filter(g => length(g) == maxLength)

where maxLength = groups |> map(length) |> maximum</lang>

{{out}}

<pre>["elba", "bela", "bale", "able", "abel"]

["neal", "lena", "lean", "lane", "elan"]

["vile", "veil", "live", "levi", "evil"]

["lange", "glean", "galen", "angle", "angel"]

["regal", "large", "lager", "glare", "alger"]

["trace", "crate", "cater", "carte", "caret"]</pre>