RosettaCodeData/Task/Anagrams/Picat/anagrams-2.picat
2023-07-01 13:44:08 -04:00

6 lines
196 B
Text

go2 =>
M = new_map(),
_ = [_:W in read_file_lines("unixdict.txt"),S=sort(W),M.put(S,M.get(S,"")++[W])],
X = max([V.len : _K=V in M]),
println(maxLen=X),
[V : _=V in M, V.len=X].println.