結果
問題 |
No.707 書道
|
ユーザー |
👑 |
提出日時 | 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 |
ソースコード
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))