結果

問題 No.120 傾向と対策:門松列(その1)
ユーザー 👑 obakyanobakyan
提出日時 2019-05-04 11:08:59
言語 Lua
(LuaJit 2.1.1696795921)
結果
AC  
実行時間 36 ms / 5,000 ms
コード長 1,953 bytes
コンパイル時間 187 ms
コンパイル使用メモリ 5,336 KB
実行使用メモリ 4,380 KB
最終ジャッジ日時 2023-09-03 16:34:05
合計ジャッジ時間 1,065 ms
ジャッジサーバーID
(参考情報)
judge14 / judge15
このコードへのチャレンジ(β)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 34 ms
4,380 KB
testcase_01 AC 36 ms
4,380 KB
testcase_02 AC 20 ms
4,380 KB
testcase_03 AC 36 ms
4,376 KB
権限があれば一括ダウンロードができます

ソースコード

diff #

local t = io.read("*n")

local function dotask()
  local n = io.read("*n")
  local l = {}
  for i = 1, n do
    local tmp = io.read("*n")
    if(l[tmp] == nil) then l[tmp] = 1 else l[tmp] = l[tmp] + 1 end
  end
  local mcnt = 0
  for k, v in pairs(l) do
    mcnt = math.max(mcnt, v)
  end
  local c = {}
  for i = 1, mcnt do c[i] = 0 end
  local remall = 0
  for k, v in pairs(l) do
    c[v] = c[v] + 1
    remall = remall + 1
  end
  local ret = 0
  while(3 <= remall) do
    if(3 <= c[mcnt]) then
      local num = math.floor(c[mcnt] / 3)
      ret = ret + num
      c[mcnt] = c[mcnt] - 3 * num
      if(1 < mcnt) then
        c[mcnt - 1] = c[mcnt - 1] + 3 * num
      else
        remall = remall - 3 * num
      end
      if(c[mcnt] == 0) then mcnt = mcnt - 1 end
    elseif(2 == c[mcnt]) then
      ret = ret + 1
      c[mcnt] = 0
      for i = mcnt - 1, 1, -1 do
        if(0 < c[i]) then
          c[i] = c[i] - 1
          if(1 < i) then
            c[i - 1] = c[i - 1] + 1
          else
            remall = remall - 1
          end
          break
        end
      end
      c[mcnt - 1] = c[mcnt - 1] + 2
      mcnt = mcnt - 1
    else
      ret = ret + 1
      c[mcnt] = 0
      for i = mcnt - 1, 1, -1 do
        if(2 <= c[i]) then
          c[i] = c[i] - 2
          if(1 < i) then
            c[i - 1] = c[i - 1] + 2
          else
            remall = remall - 2
          end
          break
        elseif(c[i] == 1) then
          c[i] = c[i] - 1
          for j = i - 1, 1, -1 do
            if(0 < c[j]) then
              c[j] = c[j] - 1
              if(1 < j) then
                c[j - 1] = c[j - 1] + 1
              else
                remall = remall - 1
              end
              break
            end
          end
          c[i - 1] = c[i - 1] + 1
          break
        end
      end
      c[mcnt - 1] = c[mcnt - 1] + 1
      mcnt = mcnt - 1
    end
  end
  return ret
end

for i = 1, t do
  print(dotask())
end
0