結果

問題 No.707 書道
ユーザー 👑 obakyan
提出日時 2019-04-28 19:19:32
言語 Lua
(LuaJit 2.1.1734355927)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 793 bytes
コンパイル時間 64 ms
コンパイル使用メモリ 6,696 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-12-17 18:57:36
合計ジャッジ時間 647 ms
ジャッジサーバーID
(参考情報)
judge2 / judge3
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 6
権限があれば一括ダウンロードができます

ソースコード

diff #

ior = io.read
local h, w = ior("*n", "*n", "*l")
local xs, ys, cnt = {}, {}, 0
local str =""
for i_h = 1, h do
  str = ior()
  for i_w = 1, w do
    if(str:sub(i_w, i_w) == "1") then
      table.insert(xs, i_w)
      table.insert(ys, i_h)
      cnt = cnt + 1
    end
  end
end
local msq, mmi = math.sqrt, math.min
local function getlen(x, y)
  local len = 0
  for i = 1, cnt do
    len = len + msq((x - xs[i]) * (x - xs[i]) + (y - ys[i]) * (y - ys[i]))
  end
  return len
end
local minlen = getlen(1, 0)
for i_w = 2, w do
  minlen = mmi(minlen, getlen(i_w, 0))
end
for i_w = 1, w do
  minlen = mmi(minlen, getlen(i_w, h + 1))
end
for i_h = 1, h do
  minlen = mmi(minlen, getlen(0, i_h))
end
for i_h = 1, h do
  minlen = mmi(minlen, getlen(w + 1, i_h))
end
print(string.format("%.8f", minlen))
0