結果

問題 No.2219 Re:010
ユーザー 👑 obakyanobakyan
提出日時 2023-02-18 22:56:45
言語 Lua
(LuaJit 2.1.1696795921)
結果
AC  
実行時間 47 ms / 2,000 ms
コード長 2,172 bytes
コンパイル時間 382 ms
コンパイル使用メモリ 5,376 KB
実行使用メモリ 13,312 KB
最終ジャッジ日時 2024-07-20 05:38:20
合計ジャッジ時間 2,024 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 10 ms
6,528 KB
testcase_01 AC 10 ms
6,528 KB
testcase_02 AC 10 ms
6,656 KB
testcase_03 AC 39 ms
13,184 KB
testcase_04 AC 15 ms
7,552 KB
testcase_05 AC 35 ms
13,056 KB
testcase_06 AC 18 ms
8,192 KB
testcase_07 AC 26 ms
9,984 KB
testcase_08 AC 39 ms
13,056 KB
testcase_09 AC 37 ms
13,056 KB
testcase_10 AC 30 ms
9,984 KB
testcase_11 AC 26 ms
9,984 KB
testcase_12 AC 27 ms
9,984 KB
testcase_13 AC 42 ms
13,184 KB
testcase_14 AC 42 ms
13,184 KB
testcase_15 AC 42 ms
13,184 KB
testcase_16 AC 41 ms
13,312 KB
testcase_17 AC 42 ms
13,184 KB
testcase_18 AC 21 ms
13,312 KB
testcase_19 AC 26 ms
13,184 KB
testcase_20 AC 47 ms
13,184 KB
testcase_21 AC 10 ms
6,528 KB
testcase_22 AC 9 ms
6,528 KB
testcase_23 AC 10 ms
6,528 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

local mod = 998244353
local mfl = math.floor
local function bmul(x, y)
  local x0, y0 = x % 31596, y % 31596
  local x1, y1 = mfl(x / 31596), mfl(y / 31596)
  return (x1 * y1 * 62863 + (x1 * y0 + x0 * y1) * 31596 + x0 * y0) % mod
end
local function badd(x, y)
  return (x + y) % mod
end

local function bsub(x, y)
  return x < y and x - y + mod or x - y
end

local s = io.read()
local n = #s
local t = {}
for i = 1, n do
  t[i] = s:sub(i, i)
end
local sum0 = {}
local sum1 = {}
if t[1] == "0" then sum0[1] = 1 else sum0[1] = 0 end
if t[1] == "1" then sum1[1] = 1 else sum1[1] = 0 end
for i = 2, n do
  if t[i] == "0" then
    sum0[i] = sum0[i - 1] + 1
  else
    sum0[i] = sum0[i - 1]
  end
  if t[i] == "1" then
    sum1[i] = sum1[i - 1] + 1
  else
    sum1[i] = sum1[i - 1]
  end
end
local tot0 = sum0[n]
local tot1 = sum1[n]
local totq = n - tot0 - tot1

local p2m1 = {1}
for i = 2, 400000 do
  p2m1[i] = (p2m1[i - 1] * 2) % mod
end
local ans = 0
for i = 2, n - 1 do
  local left_0 = sum0[i - 1]
  local right_0 = tot0 - sum0[i]
  local left_1 = sum1[i - 1]
  local right_1 = tot1 - sum1[i]
  local left_q = i - 1 - left_0 - left_1
  local right_q = n - i - right_0 - right_1
  if t[i] == "1" then
    local v = bmul(left_0, right_0)
    v = bmul(v, p2m1[totq + 1])
    ans = badd(ans, v)
    if 0 < left_q then
      v = bmul(left_q, right_0)
      v = bmul(v, p2m1[totq])
      ans = badd(ans, v)
    end
    if 0 < right_q then
      v = bmul(left_0, right_q)
      v = bmul(v, p2m1[totq])
      ans = badd(ans, v)
    end
    if 0 < left_q * right_q then
      v = bmul(left_q, right_q)
      v = bmul(v, p2m1[totq - 1])
      ans = badd(ans, v)
    end
  elseif t[i] == "?" then
    local v = bmul(left_0, right_0)
    v = bmul(v, p2m1[totq])
    ans = badd(ans, v)
    if 0 < left_q then
      v = bmul(left_q, right_0)
      v = bmul(v, p2m1[totq - 1])
      ans = badd(ans, v)
    end
    if 0 < right_q then
      v = bmul(left_0, right_q)
      v = bmul(v, p2m1[totq - 1])
      ans = badd(ans, v)
    end
    if 0 < left_q * right_q then
      v = bmul(left_q, right_q)
      v = bmul(v, p2m1[totq - 2])
      ans = badd(ans, v)
    end
  end
end
print(ans)
0