結果

問題 No.1665 quotient replace
ユーザー 👑 obakyan
提出日時 2024-11-20 23:14:38
言語 Lua
(LuaJit 2.1.1734355927)
結果
AC  
実行時間 762 ms / 3,000 ms
コード長 920 bytes
コンパイル時間 57 ms
コンパイル使用メモリ 6,692 KB
実行使用メモリ 46,804 KB
最終ジャッジ日時 2024-11-20 23:14:56
合計ジャッジ時間 14,769 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 41
権限があれば一括ダウンロードができます

ソースコード

diff # 

local bxor = bit.bxor
local mce, mfl, msq, mmi, mma, mab = math.ceil, math.floor, math.sqrt, math.min, math.max, math.abs
local lim = 1000 * 1000

local function getprimes(x)
  local primes = {}
  local allnums = {}
  for i = 1, x do allnums[i] = true end
  for i = 2, x do
    if allnums[i] then
      table.insert(primes, i)
      local lim = mfl(x / i)
      for j = 2, lim do
        allnums[j * i] = false
      end
    end
  end
  return primes
end
local tt = {}
for i = 1, lim do
  tt[i] = 0
end
local primes = getprimes(lim)
local pn = #primes
for i = 1, pn do
  local p = primes[i]
  local z = p
  while z <= lim do
    local y = z
    while y <= lim do
      tt[y] = tt[y] + 1
      y = y + z
    end
    z = z * p
  end
end

local n = io.read("*n", "*l")
local ret = 0
local s = io.read()
for w in s:gmatch("%d+") do
  local a = tonumber(w)
  ret = bxor(ret, tt[a])
end
print(ret == 0 and "black" or "white")
0