RosettaCodeData/Task/Semordnilap/Elixir/semordnilap.elixir
2016-12-05 22:15:40 +01:00

7 lines
267 B
Text

words = File.stream!("unixdict.txt")
|> Enum.map(&String.strip/1)
|> Enum.group_by(&min(&1, String.reverse &1))
|> Map.values
|> Enum.filter(&(length &1) == 2)
IO.puts "Semordnilap pair: #{length(words)}"
IO.inspect Enum.take(words,5)