結果

問題 No.58 イカサマなサイコロ
ユーザー 👑 obakyanobakyan
提出日時 2019-05-05 10:01:27
言語 Lua
(LuaJit 2.1.1696795921)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 1,287 bytes
コンパイル時間 45 ms
コンパイル使用メモリ 5,212 KB
実行使用メモリ 4,384 KB
最終ジャッジ日時 2023-09-06 14:34:29
合計ジャッジ時間 846 ms
ジャッジサーバーID
（参考情報） 		judge12 / judge15
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
4,376 KB
testcase_01 AC 1 ms
4,380 KB
testcase_02 AC 1 ms
4,384 KB
testcase_03 AC 1 ms
4,376 KB
testcase_04 AC 1 ms
4,376 KB
testcase_05 AC 1 ms
4,380 KB
testcase_06 AC 2 ms
4,376 KB
testcase_07 AC 1 ms
4,380 KB
testcase_08 AC 1 ms
4,376 KB
testcase_09 AC 1 ms
4,380 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

local n, k = io.read("*n", "*n")
local div1 = 6^n
local div2 = 3^k * 6^(n-k)
local t1, t2 = {}, {}
for i = 1, 6 * n do t1[i], t2[i] = 0, 0 end
local curmin, curmax = 0, 0
local fst = true
for i = 1, k do
  if(fst) then
    fst = false
    for j = 4, 6 do t1[j] = 1 end
    curmin, curmax = 4, 6
  else
    for s = curmax, curmin, -1 do
      for j = 6, 4, -1 do
        t1[s + j] = t1[s + j] + t1[s]
      end
      t1[s] = 0
    end
    curmin, curmax = curmin + 4, curmax + 6
  end
end
for i = k + 1, n do
  if(fst) then
    fst = false
    for j = 1, 6 do t1[j] = 1 end
    curmin, curmax = 1, 6
  else
    for s = curmax, curmin, -1 do
      for j = 6, 1, -1 do
        t1[s + j] = t1[s + j] + t1[s]
      end
      t1[s] = 0
    end
    curmin, curmax = curmin + 1, curmax + 6
  end
end
curmin, curmax, fst = 0, 0, true
for i = 1, n do
  if(fst) then
    fst = false
    for j = 1, 6 do t2[j] = 1 end
    curmin, curmax = 1, 6
  else
    for s = curmax, curmin, -1 do
      for j = 6, 1, -1 do
        t2[s + j] = t2[s + j] + t2[s]
      end
      t2[s] = 0
    end
    curmin, curmax = curmin + 1, curmax + 6
  end
end
for i = 2, 6 * n do
  t2[i] = t2[i] + t2[i - 1]
end
local p = 0
for i = 2, 6 * n do
  p = p + t1[i] / div1 * t2[i - 1] / div2
end
print(string.format("%.8f", p))
0