結果

問題 No.1000 Point Add and Array Add
ユーザー penqenpenqen
提出日時 2021-03-29 16:46:37
言語 Elixir
(1.16.2)
結果
TLE  
実行時間 -
コード長 952 bytes
コンパイル時間 1,382 ms
コンパイル使用メモリ 64,168 KB
実行使用メモリ 61,048 KB
最終ジャッジ日時 2024-06-10 00:34:40
合計ジャッジ時間 17,237 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 530 ms
54,260 KB
testcase_01 AC 525 ms
54,136 KB
testcase_02 AC 538 ms
54,188 KB
testcase_03 AC 536 ms
53,828 KB
testcase_04 AC 544 ms
54,160 KB
testcase_05 AC 547 ms
53,852 KB
testcase_06 AC 532 ms
53,804 KB
testcase_07 AC 531 ms
54,284 KB
testcase_08 AC 536 ms
53,936 KB
testcase_09 AC 540 ms
53,880 KB
testcase_10 AC 528 ms
54,192 KB
testcase_11 AC 530 ms
54,188 KB
testcase_12 AC 692 ms
57,836 KB
testcase_13 AC 610 ms
54,928 KB
testcase_14 AC 864 ms
61,048 KB
testcase_15 AC 810 ms
61,048 KB
testcase_16 TLE -
testcase_17 -- -
testcase_18 -- -
testcase_19 -- -
testcase_20 -- -
testcase_21 -- -
testcase_22 -- -
testcase_23 -- -
権限があれば一括ダウンロードができます

ソースコード

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