소개

AtCoder Beginner Contest 177

문제문은 링크처를 참조해 주세요

defmodule AtCoder177A do
  def main do
    [d, t, s] =
      IO.read(:line) |> String.trim() |> String.split(" ") |> Enum.map(&String.to_integer/1)

    solve(d, t, s) |> IO.puts()
  end

  defp solve(d, t, s) when t * s >= d, do: "Yes"

  defp solve(_, _, _), do: "No"
end

제출

문제문은 링크처를 참조해 주세요

감사합니다!

defmodule Main do
  def main do
    s = IO.read(:line) |> String.trim()
    t = IO.read(:line) |> String.trim()

    solve(s, t) |> IO.puts()
  end

  def solve(s, t) do
    len = String.length(t)
    t_charlist = String.to_charlist(t)

    String.to_charlist(s)
    |> Enum.chunk_every(len, 1, :discard)
    |> Enum.map(&Enum.zip(&1, t_charlist))
    |> Enum.map(&Enum.map(&1, fn {a, b} -> a == b end))
    |> Enum.map(&Enum.count(&1, fn b -> b == false end))
    |> Enum.min()
  end
end

제출

문제문은 링크처를 참조해 주세요

감사합니다!

defmodule Main do
  @prime 1000000007

  def main do
    IO.read(:line)
    list = IO.read(:line) |> String.trim() |> String.split(" ") |> Enum.map(&String.to_integer/1)

    solve(list) |> IO.puts()
  end

  def solve(list) do
    list
    |> Enum.reduce({Enum.sum(list), 0}, fn x, {sum, ans} ->
      sum = sum - x
      ans = ans + sum * x
      {sum, ans}
    end)
    |> elem(1)
    |> rem(@prime)
  end
end

제출을 일일이 사용해 쓴 곳 TLE (Time Limit Exceeded) 해 버린 예

defmodule Main do
  def main do
    n = IO.read(:line) |> String.trim() |> String.to_integer()
    list = IO.read(:line) |> String.trim() |> String.split(" ") |> Enum.map(&String.to_integer/1)

    solve(n, list) |> IO.puts()
  end

  def solve(n, list) do
    0..(n - 1)
    |> Enum.reduce({Enum.sum(list), 0}, fn i, {sum, ans} ->
      sum = sum - Enum.at(list, i)
      ans = ans + sum * Enum.at(list, i)
      {sum, ans}
    end)
    |> elem(1)
    |> rem(1000000007)
  end
end

Wrapping Up

이번은 에누 m. 아 t/3 의 해설의 해설에 매우 신세를 졌습니다

C까지는 있고 시간 제한도 없이 하고 있습니다만 AC (Accepted) 가 되어 기쁘게 생각하고 있습니다

Enjoy 불합격... !