結果
問題 |
No.233 めぐるはめぐる (3)
|
ユーザー |
👑 |
提出日時 | 2022-11-06 21:02:14 |
言語 | Lua (LuaJit 2.1.1734355927) |
結果 |
AC
|
実行時間 | 831 ms / 1,000 ms |
コード長 | 1,322 bytes |
コンパイル時間 | 186 ms |
コンパイル使用メモリ | 6,940 KB |
実行使用メモリ | 23,496 KB |
最終ジャッジ日時 | 2024-07-20 08:36:17 |
合計ジャッジ時間 | 6,404 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 11 |
ソースコード
local mfl, mce = math.floor, math.ceil local n = io.read("*n", "*l") local t = {} for i = 1, n do local s = io.read() t[s] = true end local a = {"i", "a", "a", "e", "u", "u"} local b = {"n", "b", "m", "g", "r"} local function getpattern(n, patall, idx) local used = {} local retary = {} local div = patall for i = 1, n do used[i] = false end for i = n, 1, -1 do div = mfl(div / i) local v_idx = mfl(idx / div) idx = idx % div local tmp_idx = 0 for j = 1, n do if not used[j] then if tmp_idx == v_idx then table.insert(retary, j) used[j] = true break else tmp_idx = tmp_idx + 1 end end end end return retary end for i = 0, 719 do local pa = getpattern(6, 720, i) for j = 0, 119 do local pb = getpattern(5, 120, j) for k = 0, 5 do local z = {} local apos = 1 if k == 0 then table.insert(z, a[pa[apos]]) apos = apos + 1 end for l = 1, 5 do table.insert(z, b[pb[l]]) table.insert(z, a[pa[apos]]) apos = apos + 1 if k == l then table.insert(z, a[pa[apos]]) apos = apos + 1 end end z = table.concat(z) if not t[z] then print(z) os.exit() end end end end print("NO")