結果
問題 | No.366 ロボットソート |
ユーザー |
👑 |
提出日時 | 2019-05-05 19:45:17 |
言語 | Lua (LuaJit 2.1.1734355927) |
結果 |
AC
|
実行時間 | 3 ms / 2,000 ms |
コード長 | 653 bytes |
コンパイル時間 | 198 ms |
コンパイル使用メモリ | 6,688 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-06-25 13:38:48 |
合計ジャッジ時間 | 1,035 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 23 |
ソースコード
local ior = io.input() local n, k = ior:read("*n", "*n") local a = {} for i = 1, n do a[i] = ior:read("*n") end local cnt = 0 for i = 1, k do local len = math.floor((n - i) / k) + 1 local sub = {} for j = 1, len do table.insert(sub, a[i + (j - 1) * k]) end for j = len - 1, 1, -1 do for l = 1, j do if(sub[l] > sub[l + 1]) then cnt = cnt + 1 sub[l], sub[l + 1] = sub[l + 1], sub[l] end end end for j = 1, len do a[i + (j - 1) * k] = sub[j] end end local sorted = true for i = 2, n do if(a[i - 1] > a[i]) then sorted = false break end end if(not sorted) then print("-1") else print(cnt) end