Anonymous user
Anagrams: Difference between revisions
Added example for Pointless
(→{{header|Frink}}: Simplifed Frink example.) |
(Added example for Pointless) |
||
Line 5,299:
abel alger angel caret elan evil
</pre>
=={{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>
=={{header|PowerShell}}==
| |||