結果
問題 | No.189 SUPER HAPPY DAY |
ユーザー |
👑 |
提出日時 | 2022-04-03 20:06:37 |
言語 | Lua (LuaJit 2.1.1734355927) |
結果 |
AC
|
実行時間 | 24 ms / 5,000 ms |
コード長 | 1,299 bytes |
コンパイル時間 | 57 ms |
コンパイル使用メモリ | 5,120 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-11-24 02:42:07 |
合計ジャッジ時間 | 1,625 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 23 |
ソースコード
local mfl, mce = math.floor, math.ceillocal mod = 1000000009local function badd(x, y) return (x + y) % mod endlocal function bmul(x, y)local x1, y1 = mfl(x / 31623), mfl(y / 31623)local x0, y0 = x - x1 * 31623, y - y1 * 31623return (x1 * y1 * 14120 + (x1 * y0 + x0 * y1) * 31623 + x0 * y0) % modendlocal m, d = io.read():match("(%d+) (%d+)")local lim = 2000local function solve(x)local dp1, dp2 = {}, {}for i = 1, lim dodp1[i] = 0endlocal maxsum = 0for i = 1, #x dolocal src = i % 2 == 1 and dp1 or dp2local dst = i % 2 == 1 and dp2 or dp1for j = 1, lim dodst[j] = 0endlocal b = x:byte(i) - 48local spos = 1 < i and 0 or 1for j = spos, b - 1 dodst[j + maxsum] = badd(dst[j + maxsum], 1)endfor j = 0, 9 dofor k = lim - j, 1, -1 dodst[k + j] = badd(dst[k + j], src[k])endendif 1 < i thenfor j = 1, 9 dodst[j] = badd(dst[j] , 1)endendmaxsum = maxsum + bendlocal tbl = #x % 2 == 1 and dp2 or dp1tbl[maxsum] = badd(tbl[maxsum], 1)local tmp = {}for i = 1, lim dotmp[i] = tbl[i]endreturn tmpendlocal a = solve(m)local b = solve(d)local ret = 0for i = 1, lim doret = badd(ret, bmul(a[i], b[i]))endprint(ret)