結果

問題 No.462 6日知らずのコンピュータ
ユーザー 👑 obakyanobakyan
提出日時 2021-06-10 20:14:42
言語 Lua
(LuaJit 2.1.1734355927)
結果
AC  
実行時間 3 ms / 2,000 ms
コード長 1,616 bytes
コンパイル時間 205 ms
コンパイル使用メモリ 6,952 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-30 07:00:13
合計ジャッジ時間 2,118 ms
ジャッジサーバーID
(参考情報)
judge1 / judge4
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 84
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

local mod = 1000000007
local mfl = math.floor
local function bmul(x, y)
local x1, y1 = mfl(x / 31623), mfl(y / 31623)
local x0, y0 = x - x1 * 31623, y - y1 * 31623
return (x1 * y1 * 14122 + (x1 * y0 + x0 * y1) * 31623 + x0 * y0) % mod
end
local ffi = require("ffi")
local C = ffi.C
ffi.cdef[[
long long atoll(const char*);
]]
local function lltonumber(str)
return C.atoll(str)
end
local n, k = io.read("*n", "*n", "*l")
if k == 0 then
local v = 1
for i = 2, n do
v = bmul(v, i)
end
print(v)
os.exit()
end
local max = 0LL
do
local mul = 1LL
for i = 1, n do
max = max + mul
mul = mul + mul
end
end
local s = io.read()
local a = {}
local cmap = {}
for w in s:gmatch("%d+") do
local z = lltonumber(w)
local tz = z
local pop = 0
while 0LL < tz do
if tz % 2LL == 1LL then
pop = pop + 1
end
tz = tz / 2LL
end
if cmap[pop] then print(0) os.exit() end
cmap[pop] = true
if 0LL < z and z < max then
table.insert(a, {z, pop})
end
end
if #a == 0 then
local v = 1
for i = 2, n do
v = bmul(v, i)
end
print(v)
os.exit()
end
table.sort(a, function(x, y) return x[2] < y[2] end)
local ret = 1
do
local c = a[1][2]
for i = 2, c do
ret = bmul(ret, i)
end
end
do
local c = a[#a][2]
for i = 2, n - c do
ret = bmul(ret, i)
end
end
for i = 1, #a - 1 do
local len = a[i + 1][2] - a[i][2]
for i = 2, len do
ret = bmul(ret, i)
end
local ta, tb = a[i][1], a[i + 1][1]
for j = 0, 70 do
if ta % 2 == 1 and tb % 2 == 0 then
print(0) os.exit()
end
ta = ta / 2LL
tb = tb / 2LL
end
end
print(ret)
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0