ABC049C - 白昼夢

問題

回答1

defmodule Main do
  @words [
    "eraser",
    "erase",
    "dreamer",
    "dream"
  ]

  def main do
    :stdio
    |> IO.read(:all)
    |> solve()
    |> IO.puts()
  end

  def solve(input) do
    s = String.trim(input)

    Enum.reduce(@words, s, fn word, acc ->
      String.replace(acc, word, " ")
    end)
    |> String.trim()
    |> case do
      "" -> "YES"
      _ -> "NO"
    end
  end
end

"""
erasedream
"""
|> Main.solve()
|> then(&(&1 == "YES"))

"""
dreameraser
"""
|> Main.solve()
|> then(&(&1 == "YES"))

"""
dreamerer
"""
|> Main.solve()
|> then(&(&1 == "NO"))

"""
erdreamaser
"""
|> Main.solve()
|> then(&(&1 == "NO"))