麻将的胡牌算法

转自：http://blog.csdn.net/shinefire/article/details/59118146

正常的麻将胡牌方式为满足N * ABC + M *DDD +ＥＥ 的形式，及存在一个对子(EE)，剩余牌均能组成顺子（ABC）或者刻子（DDD）。

很容易发现必须满足size%3 == 2的形式才可以去计算胡牌。

数据结构的选取：

麻将有万、饼、条各九种，另外还有东西南北中，春夏秋冬。 
种类不是很多，一个字节表示就可以了，前四位代表类型，后四位代表值，东西南北中，春夏秋冬可以集中到一种类型中去。

普通麻将的计算方式：

• 1.首先找出所有包含一对的情形，移除对子（注意去重），记下剩余牌的所有集合为Tn;
• 2.针对每个Tn中的数组尝试移除一个顺子，成功转到2，失败到3。
• 3.针对每个Tn中的数组尝试移除一个刻子（DDD），成功转到2。
• 4.若当前的数组的数量变为0，则表示，当前的方案可以胡牌。

2,3,4可以作为一个check_3n(检测是否满足N * ABC + M *DDD)的函数，递归调用即可。

针对有癞子的麻将（百搭）：

最简单的办法是尝试将癞子牌变为所有派来进行尝试，不过如果手中有多张癞子牌的话计算量就相当大了，比如3张，则需要计算牌的种类的3次方次，虽然中途可以通过剪枝减少部分计算量，但还是太慢了。 
针对这种情况我们可以在计算出癞子的数量，如果出现找出顺子或刻子失败，我们则可以用癞子去补，如果失败了，那么当前的方案就不通过。

• 1.同样找出所有包含一对的情形，移除对子，移除的时候需要注意更新癞子的数量这里需要注意的是对子是怎么产生的: 
  
  • 原有的对子
  • 一个癞子和一普通的组成的对子
  • 一对癞子
• 2.针对每个数组尝试移除一个顺子，成功转到2，如果失败尝试用癞子去补，癞子也不够，转到3。
• 3.针对每个数组尝试移除一个刻子（DDD），成功转到2，如果失败尝试用癞子去补，癞子也不够，当前的方案就不通过。
• 4.若当前的数组的数量变为0，则表示，当前的方案可以胡牌。

有些人好像还不很了解，补充一个lua版无癞子的算法吧(很多复制都可以优化掉)：

function table_copy_table(ori_tab)
    if (type(ori_tab) ~= "table") then
        return nil
    end
    local new_tab = {}
    for i,v in pairs(ori_tab) do
        local vtyp = type(v)
        if (vtyp == "table") then
            new_tab[i] = table_copy_table(v)
        elseif (vtyp == "thread") then
            new_tab[i] = v
        elseif (vtyp == "userdata") then
            new_tab[i] = v
        else
            new_tab[i] = v
        end
    end
    return new_tab
end


function sort_card(t)
    table.sort(t, function(a,b)
        local sa,ra = a&0xf,a&0xf0
        local sb,rb = b&0xf,b&0xf0
        if ra == rb then
            return sa < sb
        else
            return ra < rb
        end

    end)
end

function remove_three_same(t)
    assert(#t%3 == 0 and #t > 0)
    local found = false
    local begin
    for i=1,#t - 2 do
        if t[i] == t[i + 1] and t[i] == t[i + 2] then
            found = true
            begin = i
            break
        end
    end

    if found then
        local ret = {}
        for k=1,3 do
            table.insert(ret,table.remove(t,begin))
        end
        return true,ret
    end
end

function remove_straight(t)
    assert(#t%3 == 0 and #t > 0)
    local ret = {}
    for i=1,#t - 2 do
        local found1
        local found2
        local position = {}
        table.insert(position,i)
        for k = i,#t do
            if not found1 and t[i] + 1 == t[k] then
                found1  = true 
                table.insert(position,k)
            end 

            if not found2 and t[i] + 2 == t[k] then
                found2  = true 
                table.insert(position,k)
            end 

            if found2 and found1 then
                break
            end
        end
        if found2 and found1 then
            for i = #position,1,-1 do
                table.insert(ret,table.remove(t,position[i]))
            end
            return true,ret
        end
    end
end


function check_3n(set)
    assert(#set%3 == 0)
    sort_card(set)
    local t1 = table_copy_table(set)
    local t2 = table_copy_table(set)
    if remove_three_same(t1) then
        if #t1 == 0 or check_3n(t1)then
            return true
        end
    end

    if remove_straight(t2) then
        if #t2 == 0 or check_3n(t2) then
            return true
        end
    end
    return false
end

function check_hu(set)
    assert((#set)%3 == 2)
    sort_card(set)
    for i=1,#set - 1 do
        if set[i] == set[i + 1] then
            local check = {}
            for k = 1,#set do
                if k ~= i and k ~= i + 1 then
                    table.insert(check,set[k])
                end
            end

            if #check == 0 or check_3n(check) then
                return true
            end
        end
    end
end


local sets = {
    {0x11,0x11,0x11,0x11,0x12,0x12,0x12,0x12,0x13,0x13,0x13,0x13,0x14,0x14,0x14,0x14,0x15}, 
    {0x11,0x11},
    {0x12,0x13,0x14,0x23,0x23,0x24,0x25,0x26}
}


for k,v in pairs(sets) do
    print(check_hu(v))
end
 
 
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137

再补个c版的吧：

#include "stdio.h"
#include "stdbool.h"
#include <stdlib.h>
#include <malloc.h>

bool check_hu(unsigned char *A, unsigned int sz);
bool check_3n(unsigned char *set, unsigned int sz);
bool remove_straight(unsigned char *set, unsigned int sz);
bool remove_three_same(unsigned char *set, unsigned int sz);
void sort_card(unsigned char *A, unsigned int sz);
bool big_than(unsigned char a, unsigned char b);
void dump(unsigned char *set, unsigned int sz);


bool check_hu(unsigned char *A, unsigned int sz) {
    unsigned char *set = (unsigned char *)malloc(sizeof(char) * sz);
    sort_card(A, sz);
    unsigned int i = 0;
    for (i = 0; i < sz; i++) {
        if (A[i] == A[i + 1]) {
            int k = 0;
            for (size_t j = 0; j < sz; j++) {
                if (j != i && j != i + 1) {
                    set[k] = A[j];
                    k = k + 1;
                }
            }
            if (check_3n(set, sz - 2) || sz - 2 == 0) {
                return true;
            }
        }

    }
    free(set);
    return false;
}

bool check_3n(unsigned char *set, unsigned int sz) {
    if (sz == 0) {
        return true;
    }
    int set_t[20] = { 0 };
    for (size_t i = 0; i < sz; i++)
    {
        set_t[i] = set[i];
    }

    if (remove_straight(set, sz)) {
        if (check_3n(set, sz - 3))
        {
            return true;
        }
    }

    for (size_t i = 0; i < sz; i++)
    {
        set[i] = set_t[i];
    }

    if (remove_three_same(set, sz)) {
        if (check_3n(set, sz - 3))
        {
            return true;
        }
    }
    return false;
}

bool remove_straight(unsigned char *set, unsigned int sz) {
    int second = 0, third = 0;
    for (size_t i = 0; i < sz; i++)
    {
        if (set[i] == set[0] + 1)
        {
            second = i;
        }
        if (set[i] == set[0] + 2)
        {
            third = i;
        }
        if (set[i] > set[0] + 2)
        {
            break;
        }
        if (second != 0 && third != 0)
        {
            break;
        }
    }
    if (second != 0 && third != 0)
    {
        int j = 0;
        for (size_t i = 1; i < sz; i++)
        {
            if (i != second && i != third)
            {
                set[j] = set[i];
                j++;
            }

        }
        return true;
    }
    return false;
}

bool remove_three_same(unsigned char *set, unsigned int sz) {
    if (set[0] == set[2] && set[1] == set[0]) {
        unsigned int i = 0;
        for (i = 0; i < sz - 3; i++) {
            set[i] = set[i + 3];
        }
        return true;
    }
    return false;
}


//----------------------------------------------------------------------------
void sort_card(unsigned char *A, unsigned int sz) {
    int i = 0, j = 0;
    int len = sz;
    for (i = len - 1; i >= 0; i--) {
        unsigned char max = A[i];
        int postion = i;
        for (j = 0; j <= i; j++) {
            if (big_than(A[j], max)) {
                max = A[j];
                postion = j;
            }
        }
        unsigned char temp = A[i];
        A[i] = max;
        A[postion] = temp;
    }
}

bool big_than(unsigned char a, unsigned char b) {
    if ((a & (unsigned int)0xf0) > (b & (unsigned int)0xf0)) {
        return true;
    }
    else if ((a & (unsigned int)0xf0) == (b & (unsigned int)0xf0)) {
        if ((a & (unsigned int)0xf) > (b & (unsigned int)0xf)) {
            return true;
        }
    }
    return false;
}


void dump(unsigned char *set, unsigned int sz) {
    for (size_t i = 0; i < sz; i++)
    {
        printf("%02x ", *(set + i));
    }
    printf("\n");
}

int main() {
    unsigned char A[17] = {0x11,0x11,0x11,0x11,0x12,0x12,0x12,0x12,0x13,0x13,0x13,0x13,0x14,0x14,0x14,0x14,0x15};
    bool hu1 = check_hu(A,17);
    bool hu2 = check_hu(A,2);
    printf("%d  %d\n",hu1,hu2);
}