Lua骰子点数：n枚骰子的点数分布

local function countRec(k, s)
    if k == 0 then return s == 0 and 1 or 0 end
    local total = 0
    for j = 1, 6 do
        total = total + countRec(k - 1, s - j)
    end
    return total
end

local function diceDist(k)
    local f = {1}
    for round = 1, k do
        local g = {}
        for s = round, round * 6 do
            g[s] = 0
            for j = 1, 6 do
                if f[s - j] then
                    g[s] = g[s] + f[s - j]
                end
            end
        end
        f = g
    end
    return f
end
local p = getplayerbyname("dice01")
sendmsg(p, 1, "两枚和7的组合 " .. diceDist(2)[7] .. " 种")