带赖子的胡牌算法lua版本

今天花了一上午的时间重新写了一下胡牌的算法，废话不多说，直接贴代码：

1.GameLayer

GameLayer = class("GameLayer",function()
    return cc.Layer:create()
end)

--
function GameLayer:create()
    local view = GameLayer.new()
    view:__init()
    return view
end

--
function GameLayer:__init()
    self:setTag(LayerTag)
    self:initData()
    self:initCards()
    self:initListener() 
end

function GameLayer:initData()
    --可以选取的牌列表
    self.cardList = {}
    
    --添加的想要判断听牌的牌列表
    self.needCheckCardList = {}
    
    --
    self.holdCardNode = cc.Node:create()
    self:addChild(self.holdCardNode)
end

function GameLayer:initListener()
    local listener = cc.EventListenerTouchOneByOne:create()
    listener:setSwallowTouches(false)
    listener:registerScriptHandler(function(touch, event) return self:touchBegan(touch, event) end, cc.Handler.EVENT_TOUCH_BEGAN)
    listener:registerScriptHandler(function(touch, event) self:touchEnded(touch, event) end, cc.Handler.EVENT_TOUCH_ENDED)
    self:getEventDispatcher():addEventListenerWithSceneGraphPriority(listener, self)
end

function GameLayer:touchBegan(touch, event)
   
    if #self.needCheckCardList >= 13 then
        Util:getHuCardList(self.needCheckCardList)
    else
        local touchPos = touch:getLocation() 
        for i = 1, #(self.cardList) do
            local card = self.cardList[i]
            local cardRect = card:getBoundingBox()
            if cc.rectContainsPoint(cardRect, touchPos) then
                table.insert(self.needCheckCardList, card.id)

                --将一副牌中选中的牌去掉
                table.remove(self.cardList, i)
                card:removeFromParent()

                --
                self:updateView()
                return true
            end
        end
    end
    
    --
    return true
end

function GameLayer:touchEnded(touch, event)

end

function GameLayer:updateView()
    local startX, _, maxNum = self:getStartPosAndMaxnum()
    local cardWidth, cardHeight = self:getCardWidthHeight()
    local startY = gapWidth + cardWidth/2
    
    --移除持有的牌
    self.holdCardNode:removeAllChildren()
    
    --对持有的牌进行排序
    table.sort(self.needCheckCardList, function(a, b) return a < b end)
    
    --
    for i = 1, #self.needCheckCardList do
        local cardId = self.needCheckCardList[i]
        local card = self:createCardWithId(cardId)
        
        local row = math.ceil(i/maxNum)
        local col = i % maxNum == 0 and maxNum or (i % maxNum)
        
        local x = startX + (col - 1) * (cardWidth + gapWidth)
        local y = startY + (cardHeight + gapWidth) * (row - 1)
        
        card:setPosition(x, y)
        self.holdCardNode:addChild(card)
    end
end

--初始化牌的位置
function GameLayer:initCards()
    local startX, startY, maxNum = self:getStartPosAndMaxnum()
    local cardWidth, cardHeight = self:getCardWidthHeight()
    
    for i = 1, #Cards do
        local card = self:createCardWithId(Cards[i])
        local row = math.ceil(i/maxNum)
        local col = i % maxNum == 0 and maxNum or (i % maxNum)
      
        local x = startX + (col - 1) * (cardWidth + gapWidth)
        local y = startY - (cardHeight + gapWidth) * (row - 1)
        table.insert(self.cardList, card)
        card:setPosition(x , y)
        self:addChild(card) 
    end
end

--通过牌的id创建一张牌
function GameLayer:createCardWithId(id, scale)
    local card = cc.Sprite:create(id .. ".png")
    card:setScale(scale or cardScale)
    card.id = id
    return card
end


--得到参考点位置
function GameLayer:getStartPosAndMaxnum()
    local cardWidth, cardHeight = self:getCardWidthHeight()
    local startX, startY = (gapWidth + cardWidth/2),  (visibleSize.height - cardHeight/2 - gapWidth)
    local maxNum = math.floor((visibleSize.width - gapWidth)/(gapWidth + cardWidth))
    return startX, startY, maxNum
end

--得到牌的宽度和高度
function GameLayer:getCardWidthHeight()
    if not self.cardWidth or not self.cardHeight then
        local sp = cc.Sprite:create("101.png")
        sp:setPosition(visibleSize.width/2, visibleSize.height/2)
        self.cardWidth = sp:getContentSize().width * cardScale
        self.cardHeight = sp:getContentSize().height * cardScale
    end
    return self.cardWidth, self.cardHeight
end

2.ConstantDefine.lua

--两张牌之间的间隔
gapWidth = 5

--桌子上的牌放缩倍数
cardScale = 0.5

--当前运行的场景中第一个层的tag值
LayerTag = 9999

--当前赖子设定为白板407
LaiZi = 407

--桌面大小
visibleSize = cc.Director:getInstance():getVisibleSize()

--所有类型的牌列表
CardTypes = {
    101,102,103,104,105,106,107,108,109,
    201,202,203,204,205,206,207,208,209,
    301,302,303,304,305,306,307,308,309,
    401,402,403,404,405,406,407,
}

--牌的id对应的图片资源 共136张牌
Cards = {
    --饼 36张
    101,102,103,104,105,106,107,108,109,
    101,102,103,104,105,106,107,108,109,
    101,102,103,104,105,106,107,108,109,
    101,102,103,104,105,106,107,108,109,
    
    --条 36张
    201,202,203,204,205,206,207,208,209,
    201,202,203,204,205,206,207,208,209,
    201,202,203,204,205,206,207,208,209,
    201,202,203,204,205,206,207,208,209,
    
    --万 36张
    301,302,303,304,305,306,307,308,309,
    301,302,303,304,305,306,307,308,309,
    301,302,303,304,305,306,307,308,309,
    301,302,303,304,305,306,307,308,309,
    
    --东西南北中发白 28张
    401,402,403,404,405,406,407,
    401,402,403,404,405,406,407,
    401,402,403,404,405,406,407,
    401,402,403,404,405,406,407,
}

--赖子说明    暂时以:白板,也就是:407当赖子

3.Lib.lua

require "ConstantDefine"
require "Util"
require "LuaUtils"
require "src/view/GameLayer"

4.LuaUtils.lua

LuaUtils = {}

--统计t中,值为v的数量
function LuaUtils:getSameNumCount(t, v)
    local count = 0
    for i = 1, #t do
        if v == t[i] then
            count = count + 1
        end
    end
    return count
end

--删除t中值等于v的一个元素
function LuaUtils:removeOneNum(t, v)
    for i = 1, #t do
        if t[i] == v then
            table.remove(t, i)
            break
        end
    end
end

--向t中插入t1中的所有元素
function LuaUtils:insertList(t, t1)
    for i = 1, #t1 do
        table.insert(t, t1[i])
    end
end

--从t中删除t1中的所有元素
function LuaUtils:removeList(t, t1)
    for i = 1, #t1 do
        self:removeOneNum(t, t1[i])
    end
end

--
function LuaUtils:getNowTime()
    local socket = require("socket")
    return socket.gettime()/1000
end

--
function LuaUtils:printT(t)
    local result = {}
    for k, v in pairs(t) do 
        table.insert(result, v)
    end
    Util:sort(result)
    
    --
    local str = ""
    for k, v in ipairs(result) do 
        str = str .. v .. ","
    end
    
    --
    return str
end

function LuaUtils:mapToList(m)
    local result = {}
    for k, v in pairs(m) do 
        table.insert(result, v)
    end
    Util:sort(result)
    return result
end

5.Util.lua

Util = {}

--从t中提取值为v的 将 或者 刻
--【参数】--
--t 牌集合
--v 将要提取的将或者刻的值
--isJiang 是否是提取将
--【返回值】--
--resultList  提取到的将的集合
--remainList  提取后,剩余的牌
function Util:tiQuJiangOrKe(t, v, isJiang)

    --
    local t, laiziList = self:seprateLaizi(t)
    
    --
    self:sort(t)
    
    --
    local resultList = {}   --
    local remainList = clone(t)
    
    --
    local num = (isJiang and 2 or 3)
    
    --
    for i = #t, 1, -1 do
        local vTemp = remainList[i]
        if vTemp == v then
            table.insert(resultList, v)
            table.remove(remainList, i)
            if #resultList == num then
                break
            end
        end
    end
    
    --
    if #resultList == num then
        --放回赖子
        LuaUtils:insertList(remainList, laiziList)
        
        return resultList, remainList 
    else
        
        local needLaiziNum = num-#resultList
        local remainLaiziNum = #laiziList - needLaiziNum
        
        if remainLaiziNum < 0 then
            return nil, nil
        end
        
        if #resultList < num and (#laiziList >= needLaiziNum) then
            --提取结果中插入赖子
            for i = 1, needLaiziNum do
                table.insert(resultList, laiziList[1])
            end
            --剩余牌中插入多余的赖子 
            for i = 1, remainLaiziNum do
                table.insert(remainList, laiziList[1])
            end   
            
            --
            return resultList, remainList 
       end
    end
    
    --
    return nil, nil
end

--分离赖子
--【返回值】
--tTmpList   分离赖子后剩余的牌
--laiziList  赖子列表
function Util:seprateLaizi(t)
    local tTmpList = {}
    local laiziList = {}
    
    for i = #t, 1, -1 do
        local v = t[i]
        if v == LaiZi then
            table.insert(laiziList, v)
        else
            table.insert(tTmpList, v)
        end
    end
    return tTmpList, laiziList
end

--提取顺子
--【参数】
--t  牌集合
--v  提取的起始值
--【返回值】
--resultList  提取到的牌集合
--remainList  剩余的牌集合
function Util:tiQuShunzi(t, v)
    --
    local t, laiziList = self:seprateLaizi(t)
    
    --
    self:sort(t)
    
    local v1 = v
    local v2 = v + 1
    local v3 = v + 2
    
    local needLaiziNum = 0
    local remainLaiziNum = 0
    
    local missV1, missV2, missV3  --缺失某个数字的标志
    
    if LuaUtils:getSameNumCount(t, v1) == 0 then
        needLaiziNum = needLaiziNum + 1
        missV1 = true
    end
    
    if LuaUtils:getSameNumCount(t, v2) == 0 then
        needLaiziNum = needLaiziNum + 1
        missV2 = true
    end
    
    if LuaUtils:getSameNumCount(t, v3) == 0 then
        needLaiziNum = needLaiziNum + 1
        missV3 = true
    end
    
    remainLaiziNum = #laiziList - needLaiziNum
    
    if remainLaiziNum < 0 then
        return nil, nil
    end
    
    --
    local resultList = {v1, v2, v3}   --
    if not missV1 then
        table.insert(resultList, v1)
    else
        table.insert(resultList, laiziList[1])
    end
    
    if not missV2 then
        table.insert(resultList, v2)
    else
        table.insert(resultList, laiziList[1])
    end
    
    if not missV3 then
        table.insert(resultList, v3)
    else
        table.insert(resultList, laiziList[1])
    end
    
    
    local remainList = clone(t)
    
    if not missV1 then
       LuaUtils:removeOneNum(remainList, v1)
    else
        LuaUtils:removeOneNum(remainList, laiziList[1])
    end
    
    if not missV2 then
        LuaUtils:removeOneNum(remainList, v2)
    else
        LuaUtils:removeOneNum(remainList, laiziList[1])
    end
    
    if not missV3 then
        LuaUtils:removeOneNum(remainList, v3)
    else
        LuaUtils:removeOneNum(remainList, laiziList[1])
    end
    
    --
    for i = 1,  remainLaiziNum do
        table.insert(remainList, laiziList[1])
    end
    
    --
    return resultList, remainList
end


--将牌从小到大排序
function Util:sort(t)
    table.sort(t,function(a, b)
        return a < b 
    end)
end


--计算胡牌信息
--【参数】
--t 当前牌数据
--isHaveTiQuJiang 是否已经提取将了
--resultList 存储可以胡的牌列表
--cardId 存储是否胡的牌的id
--huMap 存储所有可以胡的牌
--cutInfo 存放剪支信息

function Util:calHuInfo(t, isHaveTiQuJiang, cardId, huMap, cutInfo)

    self.functionList = {
        self.tiQuJiangOrKe,
        self.tiQuShunzi,
    }
    
    --剪支使用
    if cutInfo[ LuaUtils:printT(t)] then
        return
    else
        cutInfo[ LuaUtils:printT(t)] = LuaUtils:printT(t)
    end
    
    --
    if #t == 0 then
        huMap[cardId] = cardId
        return
    end
    self:sort(t)
    
    if not isHaveTiQuJiang then  --先提取将
        for i = 1, #t do
            local id = t[i]
            local resultList, remainList = self:tiQuJiangOrKe(t, id, true)
            if resultList then
                isHaveTiQuJiang = true
                self:calHuInfo(remainList, isHaveTiQuJiang, cardId, huMap, cutInfo)
                isHaveTiQuJiang = false
                LuaUtils:insertList(remainList, resultList)
                self:sort(remainList)
            end
        end
    else --提取扑或者刻
        for i = 1, #t do
            local functionList =  self.functionList
            
            for j = 1, #functionList do
                local id = t[i]
                local resultList, remainList = functionList[j](self, t, id)
                if resultList then
                    self:calHuInfo(remainList, isHaveTiQuJiang, cardId, huMap, cutInfo)
                    LuaUtils:insertList(remainList, resultList)
                    self:sort(remainList)
                end
            end
        end
    end
end

--根据当前牌数据t得到当前的胡牌信息
function Util:getHuCardList(t)
    local startTime = LuaUtils:getNowTime()
    local huMap = {}
    for i = 1, #CardTypes do
        local cardId = CardTypes[i]
        local tmpT = clone(t)
        table.insert(tmpT, cardId)
        self:sort(tmpT)
        if LuaUtils:getSameNumCount(tmpT, cardId) <= 4 then
            
            self:calHuInfo(tmpT, false, cardId, huMap, {})
        end
    end
    
    --将可以胡的牌放到桌面上
    local gameLayer = cc.Director:getInstance():getRunningScene():getChildByTag(LayerTag)
    local cardWidth, cardHeight = GameLayer:getCardWidthHeight()
    
    --
    local tip = cc.Label:createWithSystemFont("胡:","Arial",20)
    tip:setPosition(tip:getContentSize().width, visibleSize.height/2-48)
    gameLayer:addChild(tip)
    
    --
    local startX, startY, maxNum = GameLayer:getStartPosAndMaxnum()
    
    startY = startY - visibleSize.height/2 - 70
    for i, v in ipairs(LuaUtils:mapToList(huMap)) do 
        
        
        local row = math.ceil(i/maxNum)
        local col = i % maxNum == 0 and maxNum or (i % maxNum)

        local x = startX + (col - 1) * (cardWidth + gapWidth)
        local y = startY - (cardHeight + gapWidth) * (row - 1)
        
        
        local cardSp = GameLayer:createCardWithId(v)
        cardSp:setPosition(x, y)
        gameLayer:addChild(cardSp)
    end
    
    --
    local endTime = LuaUtils:getNowTime()
    print ("耗时:".. (endTime-startTime) .. "秒")  --计算胡牌时间
    return huMap
end

最初始的牌型: