結果
問題 | No.29 パワーアップ |
ユーザー | gemmaro |
提出日時 | 2020-04-19 16:36:24 |
言語 | Elixir (1.16.2) |
結果 |
AC
|
実行時間 | 638 ms / 5,000 ms |
コード長 | 766 bytes |
コンパイル時間 | 1,262 ms |
コンパイル使用メモリ | 55,616 KB |
実行使用メモリ | 50,532 KB |
最終ジャッジ日時 | 2023-08-30 00:32:10 |
合計ジャッジ時間 | 16,539 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge13 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 618 ms
49,124 KB |
testcase_01 | AC | 624 ms
49,360 KB |
testcase_02 | AC | 618 ms
49,960 KB |
testcase_03 | AC | 623 ms
49,348 KB |
testcase_04 | AC | 632 ms
49,952 KB |
testcase_05 | AC | 620 ms
50,020 KB |
testcase_06 | AC | 619 ms
49,460 KB |
testcase_07 | AC | 615 ms
49,376 KB |
testcase_08 | AC | 615 ms
50,532 KB |
testcase_09 | AC | 619 ms
49,828 KB |
testcase_10 | AC | 628 ms
49,440 KB |
testcase_11 | AC | 630 ms
49,372 KB |
testcase_12 | AC | 621 ms
49,920 KB |
testcase_13 | AC | 618 ms
49,468 KB |
testcase_14 | AC | 627 ms
49,164 KB |
testcase_15 | AC | 633 ms
49,828 KB |
testcase_16 | AC | 627 ms
49,184 KB |
testcase_17 | AC | 630 ms
49,392 KB |
testcase_18 | AC | 637 ms
50,108 KB |
testcase_19 | AC | 638 ms
49,368 KB |
testcase_20 | AC | 622 ms
49,964 KB |
testcase_21 | AC | 613 ms
49,292 KB |
ソースコード
defmodule Main do def main do 1..(IO.read(:line) |> String.trim() |> String.to_integer()) |> Enum.map(fn _ -> IO.read(:line) |> String.trim() |> String.split() |> Enum.map(&String.to_integer/1) end) |> solve |> IO.puts() end def solve(a) do a |> count_rec(%{}) |> Map.to_list() |> calc_rec(0, 0) end def count_rec([], i) do i end def count_rec([[a, b, c] | t], i) do count_rec( t, i |> Map.update(a, 1, &(&1 + 1)) |> Map.update(b, 1, &(&1 + 1)) |> Map.update(c, 1, &(&1 + 1)) ) end def calc_rec([], p, r) do p + (r |> div(4)) end def calc_rec([{_, v} | t], p, r) do calc_rec(t, p + (v |> div(2)), r + (v |> rem(2))) end end