結果

問題 No.402 最も海から遠い場所
ユーザー 👑 obakyanobakyan
提出日時 2019-07-19 23:18:49
言語 Lua
(LuaJit 2.1.1696795921)
結果
AC  
実行時間 1,738 ms / 3,000 ms
コード長 1,856 bytes
コンパイル時間 259 ms
コンパイル使用メモリ 5,504 KB
実行使用メモリ 403,848 KB
最終ジャッジ日時 2024-06-07 19:26:57
合計ジャッジ時間 7,644 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
5,248 KB
testcase_01 AC 2 ms
5,376 KB
testcase_02 AC 3 ms
5,376 KB
testcase_03 AC 2 ms
5,376 KB
testcase_04 AC 2 ms
5,376 KB
testcase_05 AC 3 ms
5,376 KB
testcase_06 AC 2 ms
5,376 KB
testcase_07 AC 2 ms
5,376 KB
testcase_08 AC 2 ms
5,376 KB
testcase_09 AC 3 ms
5,376 KB
testcase_10 AC 3 ms
5,376 KB
testcase_11 AC 5 ms
5,376 KB
testcase_12 AC 7 ms
5,376 KB
testcase_13 AC 13 ms
5,376 KB
testcase_14 AC 14 ms
5,376 KB
testcase_15 AC 37 ms
9,088 KB
testcase_16 AC 65 ms
15,232 KB
testcase_17 AC 570 ms
203,624 KB
testcase_18 AC 1,738 ms
403,848 KB
testcase_19 AC 809 ms
395,920 KB
testcase_20 AC 1,261 ms
396,156 KB
testcase_21 AC 973 ms
396,060 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

local ior = io.input()
local h, w = ior:read("*n", "*n", "*l")

local function getindex(i_h, i_w)
  return i_w + (i_h - 1) * w
end

local taskstate = {}
for i = 1, h * w do taskstate[i] = false end
local tasks = {}
local tasknum = 0
local done = 0
local tasklim = h * w

local function addtask(idx)
  if(not taskstate[idx]) then
    taskstate[idx] = true
    tasknum = tasknum + 1
    local taskidx = tasknum % tasklim
    if taskidx == 0 then taskidx = tasklim end
    tasks[taskidx] = idx
  end
end

local function createMap()
  local str = ""
  local map = {}
  local inf = h + w
  for i_h = 1, h do
    str = ior:read()
    for i_w = 1, w do
      local index = getindex(i_h, i_w)
      if str:sub(i_w, i_w) == "#" then
        if i_h == 1 or i_h == h or i_w == 1 or i_w == w then
          map[index] = 1
          addtask(index)
        else
          map[index] = inf
        end
      else
        map[index] = 0
        addtask(index)
      end
    end
  end
  return map
end

local map = createMap()

local function walk(src, dst)
  if map[src] + 1 < map[dst] then
    map[dst] = map[src] + 1
    addtask(dst)
  end
end

while(done < tasknum) do
  done = done + 1
  local taskidx = done % tasklim
  if(taskidx == 0) then taskidx = tasklim end
  local idx = tasks[taskidx]
  taskstate[idx] = false

  if w < idx then walk(idx, idx - w) end
  if idx <= (h - 1) * w then walk(idx, idx + w) end
  if 1 < w then
    if idx % w ~= 0 then
      walk(idx, idx + 1)
      if w < idx then walk(idx, idx + 1 - w) end
      if idx <= (h - 1) * w then walk(idx, idx + 1 + w) end
    end
    if idx % w ~= 1 then
      walk(idx, idx - 1)
      if w < idx then walk(idx, idx - 1 - w) end
      if idx <= (h - 1) * w then walk(idx, idx - 1 + w) end
    end
  end
end
local mma = math.max
local ret = 1
for i = 1, h * w do
  ret = mma(ret, map[i])
end
print(ret)
0