Submission #17275879

---

Source Code Expand

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

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

  @doc ~S"""
  https://atcoder.jp/contests/abc085/tasks/abc085_b

  ## Examples

      iex> Abc085C.solve(9, 45000)
      "0 9 0"
      iex> Abc085C.solve(20, 196000)
      "-1 -1 -1"
      iex> Abc085C.solve(1000, 1234000)
      "2 54 944"
      iex> Abc085C.solve(2000, 20000000)
      "2000 0 0"

  """
  def solve(n, y) do
    for(
      i <- 0..n,
      j <- 0..(n - i),
      k = n - i - j,
      j >= 0,
      k >= 0,
      10000 * i + 5000 * j + 1000 * k == y,
      do: "#{i} #{j} #{k}"
    )
    |> Enum.at(0, "-1 -1 -1")
  end
end

Submission Info

Judge Result