結果

問題 No.1233 割り切れない気持ち
ユーザー 👑 obakyanobakyan
提出日時 2022-11-03 22:03:31
言語 Lua
(LuaJit 2.1.1696795921)
結果
AC  
実行時間 106 ms / 3,153 ms
コード長 959 bytes
コンパイル時間 205 ms
コンパイル使用メモリ 6,812 KB
実行使用メモリ 25,344 KB
最終ジャッジ日時 2024-07-18 04:43:35
合計ジャッジ時間 5,959 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 56 ms
21,888 KB
testcase_01 AC 55 ms
21,888 KB
testcase_02 AC 53 ms
21,888 KB
testcase_03 AC 56 ms
21,760 KB
testcase_04 AC 54 ms
21,760 KB
testcase_05 AC 53 ms
21,888 KB
testcase_06 AC 53 ms
21,760 KB
testcase_07 AC 64 ms
23,040 KB
testcase_08 AC 76 ms
24,320 KB
testcase_09 AC 91 ms
25,344 KB
testcase_10 AC 95 ms
25,344 KB
testcase_11 AC 65 ms
23,040 KB
testcase_12 AC 103 ms
25,344 KB
testcase_13 AC 106 ms
25,216 KB
testcase_14 AC 104 ms
25,344 KB
testcase_15 AC 100 ms
25,344 KB
testcase_16 AC 100 ms
25,344 KB
testcase_17 AC 93 ms
25,344 KB
testcase_18 AC 96 ms
25,344 KB
testcase_19 AC 98 ms
25,344 KB
testcase_20 AC 92 ms
25,344 KB
testcase_21 AC 93 ms
25,216 KB
testcase_22 AC 96 ms
25,216 KB
testcase_23 AC 93 ms
25,344 KB
testcase_24 AC 95 ms
25,344 KB
testcase_25 AC 94 ms
25,344 KB
testcase_26 AC 97 ms
25,344 KB
testcase_27 AC 95 ms
25,216 KB
testcase_28 AC 95 ms
25,216 KB
testcase_29 AC 96 ms
25,344 KB
testcase_30 AC 97 ms
25,344 KB
testcase_31 AC 100 ms
25,344 KB
testcase_32 AC 95 ms
25,344 KB
testcase_33 AC 97 ms
25,344 KB
testcase_34 AC 96 ms
25,216 KB
testcase_35 AC 99 ms
25,344 KB
testcase_36 AC 99 ms
25,344 KB
testcase_37 AC 57 ms
21,888 KB
testcase_38 AC 93 ms
25,344 KB
testcase_39 AC 94 ms
25,344 KB
testcase_40 AC 95 ms
25,344 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

local n = io.read("*n")
local t = {}
local lim = 200000
local cnt = {}
for i = 1, lim do
  t[i] = 0
  cnt[i] = 0
end
local a = {}
for i = 1, n do
  a[i] = io.read("*n")
  t[a[i]] = t[a[i]] + a[i]
  cnt[a[i]] = cnt[a[i]] + 1
end
local sum = {t[1]}
local cntsum = {cnt[1]}
for i = 2, lim do
  sum[i] = sum[i - 1] + t[i]
  cntsum[i] = cntsum[i - 1] + cnt[i]
end
local ans = 0LL
for i = 2, lim do
  local mul = cnt[i]
  local j = 1
  while true do
    local left = (j - 1) * i
    local right = j * i - 1
    if lim < left then break end
    if lim < right then right = lim end
    local raw = sum[right]
    local c = cntsum[right]
    if 1 < left then
      raw = raw - sum[left - 1]
      c = c - cntsum[left - 1]
    end
    -- do
      -- print(i, j, raw, c * i * (j - 1) * mul,
      -- raw - c * i * (j - 1) * mul)
    -- end
    raw = (raw - c * i * (j - 1)) * mul
    ans = ans + raw
    j = j + 1
  end
end
ans = tostring(ans):gsub("LL", "")
print(ans)
0