编辑代码

-- 一个Board的位置信息 {
--     1 , 2 , 3 , 4 , 5 , 第一行
--     6 , 7 , 8 , 9 , 10, 第二行
--     11, 12, 13, 14, 15, 第三行
--     16, 17, 18, 19, 20, 第四行
--     21, 22, 23, 24, 25  第五行
-- }
--[[
248 24万圣节
- 驱散X只幽灵
- 道具 幽灵1只
- 道具 幽灵2只
- 道具 蜡烛 驱散1个格子内的幽灵
- 道具 南瓜灯 驱散周围一圈的格子 只在中间一圈能刷出 优先级高于蜡烛
- 道具 糖果灯笼 点亮所有南瓜灯 南瓜灯能作用幽灵<=2时 转移
]]

local GRID_STATE = {
   NONE = 0,
   MARK = 1,
}

local PROP_TYPE = {
   NONE = 0,               -- 空
   GHOST_1 = 1,            -- 一只幽灵
   GHOST_2 = 2,            -- 两只幽灵
   CANDLE = 3,             -- 蜡烛
   PUMPKIN_LAMP = 4,       -- 南瓜灯
   CANDY_LAMP = 5,         -- 糖果灯
}
local PROP_BIG_TYPE = {
   GHOST = 1,              -- 幽灵
   CANDLE = 2,             -- 蜡烛
   PUMPKIN_LAMP_1 = 3,     -- 南瓜灯激活
   PUMPKIN_LAMP_2 = 4,     -- 南瓜灯未激活
   CANDY_LAMP = 5,         -- 糖果灯
}

local DefaultClickCellIndex = nil
--[[********************** 可修改参数 start **********************]]
local COLLECT_TARGET = 8    --bingo目标驱散幽灵数
local PROP_COUNT_LIST = {--对应道具数量
   [PROP_TYPE.GHOST_1] = 4,
   [PROP_TYPE.GHOST_2] = 5,
   [PROP_TYPE.CANDLE] = 5,
   [PROP_TYPE.PUMPKIN_LAMP] = 3,
   [PROP_TYPE.CANDY_LAMP] = 2,
}
local PUMPKIN_LAMP_RANG = {7, 8, 9, 12, 14, 17, 18, 19}

local LoopCount = 10000             -- 循环次数。
local DebugOut = false              -- 开启调试。开启后，只会计算一遍，会把每次读球数据打印出来，可以核对是否计算错误。
if DebugOut then
   LoopCount = 1
end
--[[********************** 可修改参数  end  **********************]]
local InvalidNum = 0
local MaxRow = 5
local MaxCol = 5
local CellCount = MaxRow * MaxCol


--格子编号转坐标 返回row col 左->右 上->下
local function grid2Pos(grid)
   return math.ceil(grid / MaxCol), (grid - 1) % MaxRow + 1
end

local function pos2Grid(row, col)
   return (row - 1) * MaxCol + col
end

local function dump_value_(v)
   if type(v) == "string" then
      v = "\"" .. v .. "\""
   end
   return tostring(v)
end
local function dump(value, description, nesting)
   if type(nesting) ~= "number" then nesting = 3 end

   local lookupTable = {}
   local result = {}

   -- local traceback = string.split(debug.traceback("", 2), "\n")
   -- print("dump from: " .. string.trim(traceback[3]))

   local function dump_(value, description, indent, nest, keylen)
      description = description or "<var>"
      local spc = ""
      if type(keylen) == "number" then
         spc = string.rep(" ", keylen - string.len(dump_value_(description)))
      end
      if type(value) ~= "table" then
         result[#result +1 ] = string.format("%s%s%s = %s", indent, dump_value_(description), spc, dump_value_(value))
      elseif lookupTable[tostring(value)] then
         result[#result +1 ] = string.format("%s%s%s = *REF*", indent, dump_value_(description), spc)
      else
         lookupTable[tostring(value)] = true
         if nest > nesting then
            result[#result +1 ] = string.format("%s%s = *MAX NESTING*", indent, dump_value_(description))
         else
            result[#result +1 ] = string.format("%s%s = {", indent, dump_value_(description))
            local indent2 = indent.."    "
            local keys = {}
            local keylen = 0
            local values = {}
            for k, v in pairs(value) do
               keys[#keys + 1] = k
               local vk = dump_value_(k)
               local vkl = string.len(vk)
               if vkl > keylen then keylen = vkl end
               values[k] = v
            end
            table.sort(keys, function(a, b)
               if type(a) == "number" and type(b) == "number" then
                  return a < b
               else
                  return tostring(a) < tostring(b)
               end
            end)
            for i, k in ipairs(keys) do
               dump_(values[k], k, indent2, nest + 1, keylen)
            end
            result[#result +1] = string.format("%s}", indent)
         end
      end
   end
   dump_(value, description, "- ", 1)

   for i, line in ipairs(result) do
      print(line)
   end
end

local function dump_board(value, description)
   print(description or "")
   local str = "\r\n"
   for row = 1, MaxRow, 1 do
      for col = 1, MaxCol, 1 do
         local cellIndex = pos2Grid(row, col)
         local cell = value[cellIndex]
         str = str .. " " .. cell
      end
      if row ~= MaxRow then
         str = str .. "\r\n"
      end
   end
   print(str)
end

local function shuffleTable(t, startIndex, endIndex)
   if startIndex == nil then
      startIndex = 1
   end
   if endIndex == nil then
      endIndex = #t
   end
   for i = startIndex, endIndex do
      local randomIndex = math.random(startIndex, endIndex)
      local tempValue = t[i]
      t[i] = t[randomIndex]
      t[randomIndex] = tempValue
   end
end
function table.nums(t)
   local count = 0
   for k, v in pairs(t) do
      count = count + 1
   end
   return count
end

function table.clone(t, nometa)
   local u = {}

   for i, v in pairs(t) do
      if type(v) == "table" then
         u[i] = table.clone(v)
      else
         u[i] = v
      end
   end
   return u
end

function table.indexof(array, value, begin)
   for i = begin or 1, #array do
      if array[i] == value then return i end
   end
   return false
end

function table.removebyvalue(array, value, removeall)
   local c, i, max = 0, 1, #array
   while i <= max do
      if array[i] == value then
         table.remove(array, i)
         c = c + 1
         i = i - 1
         max = max - 1
         if not removeall then break end
      end
      i = i + 1
   end
   return c
end

local function getOneCell(cellNum, cellType)
   local cell = { }
   cell.mNum_ = cellNum
   cell.mType_ = cellType
   function cell:getDescription()
      local cellNumStr = "  "
      if self.mNum_ ~= InvalidNum then
         cellNumStr = tostring(self.mNum_)
         if string.len(cellNumStr) == 1 then
            cellNumStr = " " .. cellNumStr
         end
      end

      return string.format("{%s, %s}", cellNumStr, self.mType_)
   end

   function cell:beenTagged()
      assert(self.mNum_ ~= InvalidNum, "Cell has been tagged.")
      self.mNum_ = InvalidNum
      return self.mType_
   end

   function cell:setType(type)
      self.mType_ = type
   end

   function cell:getType()
      return self.mType_
   end

   return cell
end

local function PrintCurrentState(board, allScore, ballStr, getPropMsg)
   local str = "\r\n"
   for i = 1, MaxRow, 1 do
      for j = 1, MaxCol, 1 do
         local cellIndex = (i - 1) * MaxCol + j
         local cell = board[cellIndex]
         str = str .. string.format("%s    ", cell:getDescription())
      end
      if i ~= MaxRow then
         str = str .. "\r\n"
      end
   end
   if ballStr ~= InvalidNum then
      print("Read ball: ", ballStr)
   end
   print(str)
   if getPropMsg and getPropMsg ~= "" then
      print(getPropMsg)
   end
   if allScore then
      print("Current total score: ", allScore)
   end
   print()
end

local function getGridRange(gridIndex)
   local row, col = grid2Pos(gridIndex)

   local rangList = {}
   for i = -1, 1, 1 do
      for j = -1, 1, 1 do
         if not (i == 0 and j == 0) then
            local index = pos2Grid(row + i, col + j)
            rangList[index] = index
         end
      end
   end

   return rangList
end

local function getOneBoardConfig()
   local boardConfig = {}

   --先将南瓜灯灯放入(不相邻)
   local pumpkinRange = table.clone(PUMPKIN_LAMP_RANG)
   shuffleTable(pumpkinRange)
   local pumpkinList = {}
   for i = 1, PROP_COUNT_LIST[PROP_TYPE.PUMPKIN_LAMP] do
      for index, pumpkinGrid in ipairs(pumpkinRange) do
         local pRow, pCol = grid2Pos(pumpkinGrid)
         local isAdjoin = false
         for _, selectGrid in ipairs(pumpkinList) do
            local sRow, sCol = grid2Pos(selectGrid)
            local oRow, oCol = math.abs(sRow - pRow), math.abs(pCol - sCol)
            if not (oRow == 1 and oCol == 1) and oRow <= 1 and oCol <= 1 then
               isAdjoin = true
               break
            end
         end
         if not isAdjoin then
            table.insert(pumpkinList, pumpkinGrid)
            boardConfig[pumpkinGrid] = PROP_TYPE.PUMPKIN_LAMP
            table.remove(pumpkinRange, index)
            break
         end
      end
   end

   local emptyList = {}
   for i = 1, MaxRow * MaxCol do
      if not boardConfig[i] then
         table.insert(emptyList, i)
         boardConfig[i] = PROP_TYPE.NONE
      end
   end
   shuffleTable(emptyList)

   local allPropList = {}
   for propType, propCount in pairs(PROP_COUNT_LIST) do
      if propType ~= PROP_TYPE.PUMPKIN_LAMP then
         for i = 1, propCount do
            table.insert(allPropList, propType)
         end
      end
   end

   for index, propType in ipairs(allPropList) do
      boardConfig[emptyList[index]] = propType
   end

   return boardConfig
end

math.randomseed(os.time())
local function simulateReadBall()
   -- generated read balls.
   local balls = { }
   for i = 1, CellCount do
      table.insert(balls, i)
   end
   -- generate board.
   local boardConfig = getOneBoardConfig()
   local board = { }
   for i = 1, CellCount do
      table.insert(board, getOneCell(i, boardConfig[i]))
   end

   -- generate tag.
   local _isBingo = 0
   local _totaleScore = 0
   local _scoreWhen15 = 0
   local _readBallCount = 0

   local _markList = {}
   for i = 1, MaxRow * MaxCol do
      _markList[i] = GRID_STATE.NONE
   end
   local _waitPropList = {
   }
   for _, bigType in pairs(PROP_BIG_TYPE) do
      _waitPropList[bigType] = {}
   end

   -- build map for board.
   local numToBoardIndex = { }
   for cellIndex, cell in ipairs(board) do
      if cell.mNum_ ~= InvalidNum then
         numToBoardIndex[cell.mNum_] = cellIndex
      end
   end
   shuffleTable(balls)

   local function checkBingo()
      if _totaleScore >= COLLECT_TARGET then
         _isBingo = 1
         return true
      end
      return false
   end

   local useProp
   --算法逻辑
   local function updateLogic(gridIndex)
      _markList[gridIndex] = GRID_STATE.MARK
      local gridType = boardConfig[gridIndex]

      --需要检查是否需要转移(可激活南瓜驱散幽灵数<=2 转移)
      -- if gridType == PROP_TYPE.CANDY_LAMP then
      --     local costList = {}
      --     local costCount = 0
      --     for _, index in ipairs(_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_2]) do
      --         local rangList = getGridRange(index)
      --         for _, ghostIndex in ipairs(_waitPropList[PROP_BIG_TYPE.GHOST]) do
      --             if rangList[ghostIndex] and not costList[ghostIndex] then
      --                 costList[ghostIndex] = ghostIndex
      --                 if boardConfig[ghostIndex] == PROP_TYPE.GHOST_1 then
      --                     costCount = costCount + 1
      --                 elseif boardConfig[ghostIndex] == PROP_TYPE.GHOST_2 then
      --                     costCount = costCount + 2
      --                 end
      --             end
      --         end
      --         if costCount > 2 then
      --             break
      --         end
      --     end

      --     --需要转移
      --     if costCount <= 2 then
      --         local emptyList = {}
      --         local isAlowPumpkin = table.indexof(PUMPKIN_LAMP_RANG, gridIndex)
      --         for index, type in ipairs(boardConfig) do
      --             if _markList[index] ~= GRID_STATE.MARK and type ~= PROP_TYPE.CANDY_LAMP and (isAlowPumpkin or type ~= PROP_TYPE.PUMPKIN_LAMP) then
      --                 table.insert(emptyList, index)
      --             end
      --         end
      --         shuffleTable(emptyList)
      --         if emptyList[1] then
      --             gridType = boardConfig[emptyList[1]]
      --             boardConfig[emptyList[1]] = boardConfig[gridIndex]
      --             boardConfig[gridIndex] = gridType
      --         end
      --     end
      -- end
      --油灯数>0转移
      -- if gridType == PROP_TYPE.CANDY_LAMP then
      --     if #_waitPropList[PROP_BIG_TYPE.CANDY_LAMP] > 0 then
      --         local emptyList = {}
      --         local isAlowPumpkin = false--table.indexof(PUMPKIN_LAMP_RANG, gridIndex)
      --         for index, type in ipairs(boardConfig) do
      --             if _markList[index] ~= GRID_STATE.MARK and type ~= PROP_TYPE.CANDY_LAMP and (isAlowPumpkin or type ~= PROP_TYPE.PUMPKIN_LAMP) then
      --                 table.insert(emptyList, index)
      --             end
      --         end
      --         shuffleTable(emptyList)
      --         if emptyList[1] then
      --             gridType = boardConfig[emptyList[1]]
      --             boardConfig[emptyList[1]] = boardConfig[gridIndex]
      --             boardConfig[gridIndex] = gridType
      --         end
      --     end
      -- end
      --油灯数>0消失
      if gridType == PROP_TYPE.CANDY_LAMP then
         if #_waitPropList[PROP_BIG_TYPE.CANDY_LAMP] > 0 then
            boardConfig[gridIndex] = PROP_TYPE.NONE
            gridType = PROP_TYPE.NONE
         end
      end

      if gridType == PROP_TYPE.GHOST_1 or gridType == PROP_TYPE.GHOST_2 then
         table.insert(_waitPropList[PROP_BIG_TYPE.GHOST], gridIndex)
      elseif gridType == PROP_TYPE.CANDLE then
         table.insert(_waitPropList[PROP_BIG_TYPE.CANDLE], gridIndex)
      elseif gridType == PROP_TYPE.PUMPKIN_LAMP then
         table.insert(_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_1], gridIndex)
      elseif gridType == PROP_TYPE.CANDY_LAMP then
         table.insert(_waitPropList[PROP_BIG_TYPE.CANDY_LAMP], gridIndex)
      end

      useProp()

      if DebugOut then
         dump_board(_markList, gridIndex .. " " .. gridType .. " ")
      end
   end

   local function useOnePumpkin(gridIndex)
      local ghostList = {}
      local rangList = getGridRange(gridIndex)
      for _, ghostIndex in ipairs(_waitPropList[PROP_BIG_TYPE.GHOST]) do
         if rangList[ghostIndex] then
            table.insert(ghostList, ghostIndex)
            if boardConfig[ghostIndex] == PROP_TYPE.GHOST_1 then
               _totaleScore = _totaleScore + 1
            elseif boardConfig[ghostIndex] == PROP_TYPE.GHOST_2 then
               _totaleScore = _totaleScore + 2
            end
         end
      end
      if #ghostList > 0 then
         for _, index in ipairs(ghostList) do
            table.removebyvalue(_waitPropList[PROP_BIG_TYPE.GHOST], index)
         end
      end
      return ghostList
   end

   function useProp()
      if checkBingo() then
         return
      end

      --有糖果灯先表现糖果灯
      if #_waitPropList[PROP_BIG_TYPE.CANDY_LAMP] > 0 and #_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_2] > 0 then
         table.remove(_waitPropList[PROP_BIG_TYPE.CANDY_LAMP], 1)
         for _, gridIndex in ipairs(_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_2]) do
            table.insert(_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_1], gridIndex)
         end
         _waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_2] = {}
      end

      --检查处理激活状态的南瓜灯是否触发
      if #_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_1] > 0 then
         local isUsePimpkin = false
         for _, gridIndex in ipairs(_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_1]) do
            local ghostList = useOnePumpkin(gridIndex)
            if #ghostList > 0 then
               table.removebyvalue(_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_1], gridIndex)
               table.insert(_waitPropList[PROP_BIG_TYPE.PUMPKIN_LAMP_2], gridIndex)

               isUsePimpkin = true
            end
         end
         if isUsePimpkin then
            useProp()
            return
         end
      end

      --检查蜡烛
      if #_waitPropList[PROP_BIG_TYPE.CANDLE] > 0 then
         local costList = {}
         for _, index in ipairs(_waitPropList[PROP_BIG_TYPE.CANDLE]) do
            if _waitPropList[PROP_BIG_TYPE.GHOST][1] then
               local ghostIndex = table.remove(_waitPropList[PROP_BIG_TYPE.GHOST], 1)
               if boardConfig[ghostIndex] == PROP_TYPE.GHOST_1 then
                  _totaleScore = _totaleScore + 1
               elseif boardConfig[ghostIndex] == PROP_TYPE.GHOST_2 then
                  _totaleScore = _totaleScore + 2
               end
               table.insert(costList, index)
            else
               break
            end
         end
         for _, index in ipairs(costList) do
            table.removebyvalue(_waitPropList[PROP_BIG_TYPE.CANDLE], index)
         end
      end
   end

   -- read balls
   while #balls > 0 do
      _readBallCount = _readBallCount + 1
      local ballNum = balls[1]
      table.remove(balls, 1)
      local ballIndex = numToBoardIndex[ballNum]
      assert(ballIndex ~= nil, string.format("Cant find ball num index: %d", ballNum))
      assert(board[ballIndex].mNum_ == ballNum, "NumToBoardIndex Map Error!")

      board[ballIndex]:beenTagged()
      if ballIndex ~= DefaultClickCellIndex then
         updateLogic(ballIndex)
      end

      if DebugOut then
         PrintCurrentState(board, _totaleScore, ballNum)
      end

      if _totaleScore > COLLECT_TARGET then
         _totaleScore = COLLECT_TARGET
      end
      if _readBallCount <= 15 then
         _scoreWhen15 = _totaleScore
      end

      if checkBingo() then
         break
      end
   end

   return _readBallCount, _scoreWhen15
end

local bingoNeedReadBall = { }
for i = 1, CellCount do
   bingoNeedReadBall[i] = 0
end
local allTotalScoreWhen15 = 0

for i = 1, LoopCount do
   local ballCountCompleteBingo, snailNodePositionWhen15 = simulateReadBall()
   bingoNeedReadBall[ballCountCompleteBingo] = bingoNeedReadBall[ballCountCompleteBingo] + 1
   allTotalScoreWhen15 = allTotalScoreWhen15 + snailNodePositionWhen15
end
local bingoTotal = { }
bingoTotal[1] = 0
for i = 2, CellCount do
   bingoTotal[i] = bingoNeedReadBall[i] + bingoTotal[i - 1]
end

print("标记格子数量发生bingo：", table.concat(bingoNeedReadBall, ", "))
print("标记累计发生bingo数量：", table.concat(bingoTotal, ", "))
print("第15次读球, 分：", allTotalScoreWhen15 / LoopCount)