結果

問題 No.1000 Point Add and Array Add
ユーザー penqen
提出日時 2021-03-29 16:46:37
言語 Elixir
(1.18.1)
結果
TLE  
実行時間 -
コード長 952 bytes
コンパイル時間 1,219 ms
コンパイル使用メモリ 64,240 KB
実行使用メモリ 307,124 KB
最終ジャッジ日時 2024-12-31 05:46:52
合計ジャッジ時間 45,678 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 14 TLE * 8
権限があれば一括ダウンロードができます

ソースコード

diff # 

defmodule Main do
  def main do
    [n, q] = IO.read(:line) |> String.trim() |> String.split(" ") |> Enum.map(&String.to_integer/1)
    an = IO.read(:line) |> String.trim() |> String.split(" ") |> Enum.with_index() |> Enum.reduce(%{}, &(Map.put(&2, elem(&1, 1), String.to_integer(elem(&1, 0)))))
    queries = for _ <- 0..(q-1) do
      IO.read(:line) |> String.trim() |> String.split(" ") |> Enum.map(fn
        v when v in ["A", "B"] -> v
        v -> String.to_integer(v)
      end)
    end
    solve(n, q, an, queries) |> Enum.join(" ") |> IO.puts()
  end

  def solve(n, _q, an, queries) do
    {_, bn} = Enum.reduce(queries, {an, Enum.reduce(0..(n-1), %{}, &(Map.put(&2, &1, 0)))}, fn
      ["A", x, y], {an, bn} -> {Map.put(an, x - 1, an[x - 1] + y), bn}
      ["B", x, y], {an, bn} -> {an, Enum.reduce((x - 1)..(y - 1), bn, &(Map.put(&2, &1, bn[&1] + an[&1])))}
    end)
    (n-1)..0 |> Enum.reduce([], fn i, acc -> [bn[i] | acc] end)
  end
end
0