RosettaCodeData/Task/Anagrams/Elixir/anagrams-2.elixir

9 lines
263 B
Text
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
File.stream!("unixdict.txt")
|> Stream.map(&String.strip &1)
2016-12-05 22:15:40 +01:00
|> Enum.group_by(&String.codepoints(&1) |> Enum.sort)
|> Map.values
|> Enum.group_by(&length &1)
2015-11-18 06:14:39 +00:00
|> Enum.max
|> elem(1)
2016-12-05 22:15:40 +01:00
|> Enum.each(fn n -> Enum.sort(n) |> Enum.join(" ") |> IO.puts end)