Elixir morse encoder example - step 4

encoder.ex

defmodule MorseEncoder.Encoder do
  def morse_encode(s) do
    :string.to_upper(s)
    |> Enum.map(&to_morse/1)
    |> List.flatten()
  end

  defp to_morse(c) do
    case c do
      ?\s -> '       '
      ?0 -> '-----   '
      ?1 -> '.----   '
      ?2 -> '..---   '
      ?3 -> '...--   '
      ?4 -> '....-   '
      ?5 -> '.....   '
      ?6 -> '-....   '
      ?7 -> '--...   '
      ?8 -> '---..   '
      ?9 -> '----.   '
      ?A -> '.-   '
      ?B -> '-...   '
      ?C -> '-.-.   '
      ?D -> '-..   '
      ?E -> '.   '
      ?F -> '..-.   '
      ?G -> '--.   '
      ?H -> '....   '
      ?I -> '..   '
      ?J -> '.---   '
      ?K -> '-.-   '
      ?L -> '.-..   '
      ?M -> '--   '
      ?N -> '-.   '
      ?O -> '---   '
      ?P -> '.--.   '
      ?Q -> '--.-   '
      ?R -> '.-.   '
      ?S -> '...   '
      ?T -> '-   '
      ?U -> '..-   '
      ?V -> '...-   '
      ?W -> '.--   '
      ?X -> '-..-    '
      ?Y -> '-.--   '
      ?Z -> '--..   '
    end
  end
end