player-0504.js

/*
 *  思考ルーチン 0504
 */
"use strict";

const Majiang = require('@kobalab/majiang-core');
const SuanPai = require('./suanpai-0504');

const width = [12, 12*6, 12*6*3];

function add_hongpai(tingpai) {
    let pai = [];
    for (let p of tingpai) {
        if (p[0] != 'z' && p[1] == '5') pai.push(p.replace(/5/,'0'));
        pai.push(p);
    }
    return pai;
}

module.exports = class Player extends Majiang.Player {

    qipai(qipai) {
        this._defen_cache = {};
        this._eval_cache  = {};
        this._suanpai = new SuanPai(this._rule['赤牌']);
        this._suanpai.qipai(
            qipai, (this._id + 4 - this._model.qijia + 4 - qipai.jushu) % 4);
        super.qipai(qipai);
    }
    zimo(zimo, gangzimo) {
        if (zimo.l == this._menfeng) this._eval_cache = {};
        this._suanpai.zimo(zimo);
        super.zimo(zimo, gangzimo);
    }
    dapai(dapai) {
        if (dapai.l != this._menfeng) this._eval_cache = {};
        this._suanpai.dapai(dapai);
        super.dapai(dapai);
    }
    fulou(fulou) {
        this._suanpai.fulou(fulou);
        super.fulou(fulou);
    }
    gang(gang)   {
        this._suanpai.gang(gang);
        super.gang(gang);
    }
    kaigang(kaigang) {
        this._defen_cache = {};
        this._eval_cache  = {};
        this._suanpai.kaigang(kaigang);
        super.kaigang(kaigang);
    }


    action_kaiju(kaiju) { this._callback() }
    action_qipai(qipai) { this._callback() }

    action_zimo(zimo, gangzimo) {
        if (zimo.l != this._menfeng) return this._callback();
        let m;
        if      (this.select_hule(null, gangzimo))
                                         this._callback({hule: '-'});
        else if (this.select_pingju())   this._callback({daopai: '-'});
        else if (m = this.select_gang()) this._callback({gang: m});
        else this._callback({dapai: this.select_dapai()});
    }

    action_dapai(dapai) {
        if (dapai.l == this._menfeng)  {
            if (this.select_daopai()) this._callback({daopai: '-'});
            else                      this._callback();
            return;
        }
        let m;
        if      (this.select_hule(dapai))      this._callback({hule: '-'});
        else if (m = this.select_fulou(dapai)) this._callback({fulou: m});
        else if (this.select_daopai())         this._callback({daopai: '-'});
        else                                   this._callback();
    }

    action_fulou(fulou) {
        if (fulou.l != this._menfeng)      return this._callback();
        if (fulou.m.match(/^[mpsz]\d{4}/)) return this._callback();
        this._callback({dapai: this.select_dapai()});
    }

    action_gang(gang) {
        if (gang.l == this._menfeng) return this._callback();
        if (this.select_hule(gang, true)) this._callback({hule: '-'});
        else                              this._callback();
    }

    action_hule(hule)     { this._callback() }
    action_pingju(pingju) { this._callback() }
    action_jieju(jieju)   { this._callback() }


    select_hule(data, hupai, info) {

        let rongpai;
        if (data) {
            if (data.m && data.m.match(/^[mpsz]\d{4}$/)) return false;
            let d = ['','+','=','-']
                        [(4 + this._model.lunban - this._menfeng) % 4];
            rongpai = data.m ? data.m[0] + data.m.substr(-1) + d
                             : data.p.substr(0,2) + d;
        }
        let hule = this.allow_hule(this.shoupai, rongpai, hupai);

        if (info && hule) {
            let shoupai = this.shoupai.clone();
            if (rongpai) shoupai.zimo(rongpai);
            info.push({
                m: '', n_xiangting: -1,
                ev: this.get_defen(this.shoupai, rongpai),
                shoupai: shoupai.toString()
            });
        }

        return hule;
    }

    select_pingju() {
        if (Majiang.Util.xiangting(this.shoupai) < 4) return false;
        return this.allow_pingju(this.shoupai);
    }

    select_fulou(dapai, info) {

        let n_xiangting = Majiang.Util.xiangting(this.shoupai);
        if (this._model.shoupai.find(s=>s.lizhi) && n_xiangting >= 3) return;

        let d = ['','+','=','-'][(4 + this._model.lunban - this._menfeng) % 4];
        let p = dapai.p.substr(0,2) + d;

        if (n_xiangting < 3) {

            let mianzi = this.get_gang_mianzi(this.shoupai, p)
                            .concat(this.get_peng_mianzi(this.shoupai, p))
                            .concat(this.get_chi_mianzi(this.shoupai, p));
            if (! mianzi.length) return;

            let fulou;
            let paishu = this._suanpai.paishu_all();
            let max    = this.eval_shoupai(this.shoupai, paishu, '');

            if (info) {
                info.push({
                    m: '', n_xiangting: n_xiangting, ev: max,
                    shoupai: this.shoupai.toString()
                });
            }

            for (let m of mianzi) {
                let shoupai = this.shoupai.clone().fulou(m);
                let x = Majiang.Util.xiangting(shoupai);
                if (x >= 3) continue;

                let ev = this.eval_shoupai(shoupai, paishu);

                if (info && ev > 0) {
                    info.push({
                        m: m, n_xiangting: x, ev: ev,
                        shoupai: shoupai.toString()
                    });
                }

                if (this._model.shoupai.find(s=>s.lizhi)) {
                    if (x  > 0 && ev < 1200) continue;
                    if (x == 0 && ev <  500) continue;
                }

                if (ev - max > 0.0000001) {
                    max   = ev;
                    fulou = m;
                }
            }
            return fulou;
        }
        else {

            let mianzi = this.get_peng_mianzi(this.shoupai, p)
                            .concat(this.get_chi_mianzi(this.shoupai, p));
            if (! mianzi.length) return;

            n_xiangting = this.xiangting(this.shoupai);

            let paishu;
            if (info) {
                paishu = this._suanpai.paishu_all();
                let ev = this.eval_shoupai(this.shoupai, paishu);
                let n_tingpai = Majiang.Util.tingpai(this.shoupai)
                                    .map(p => this._suanpai._paishu[p[0]][p[1]])
                                    .reduce((x, y)=> x + y, 0);
                info.push({
                    m: '', n_xiangting: n_xiangting, ev: ev,
                    n_tingpai: n_tingpai, shoupai: this.shoupai.toString()
                });
            }

            for (let m of mianzi) {
                let shoupai = this.shoupai.clone().fulou(m);
                let x = this.xiangting(shoupai);
                if (x >= n_xiangting) continue;

                if (info) {
                    info.push({
                        m: m, n_xiangting: x,
                        shoupai: shoupai.toString()
                    });
                }

                return m;
            }
        }
    }

    select_gang(info) {

        let n_xiangting = Majiang.Util.xiangting(this.shoupai);
        if (this._model.shoupai.find(s=>s.lizhi) && n_xiangting > 0) return;

        let paishu = this._suanpai.paishu_all();

        if (n_xiangting < 3) {

            let gang, max = this.eval_shoupai(this.shoupai, paishu);
            for (let m of this.get_gang_mianzi(this.shoupai)) {
                let shoupai = this.shoupai.clone().gang(m);
                if (Majiang.Util.xiangting(shoupai) >= 3) continue;

                let ev = this.eval_shoupai(shoupai, paishu);

                if (info) {
                    let p = m.match(/\d{4}$/) ? m.substr(0,2)
                                              : m[0] + m.substr(-1);
                    let tingpai = Majiang.Util.tingpai(shoupai);
                    let n_tingpai = tingpai
                                    .map(p => this._suanpai._paishu[p[0]][p[1]])
                                    .reduce((x, y)=> x + y, 0);
                    info.push({
                        p: p, m: m, n_xiangting: n_xiangting, ev: ev,
                        tingpai: tingpai, n_tingpai: n_tingpai,
                    });
                }

                if (ev - max > -0.0000001) {
                    gang = m;
                    max  = ev;
                }
            }
            return gang;
        }
        else {

            n_xiangting = this.xiangting(this.shoupai);

            for (let m of this.get_gang_mianzi(this.shoupai)) {
                let shoupai = this.shoupai.clone().gang(m);
                if (this.xiangting(shoupai) == n_xiangting) {

                    if (info) {
                        let p = m.match(/\d{4}$/) ? m.substr(0,2)
                                                  : m[0] + m.substr(-1);
                        let ev = this.eval_shoupai(shoupai, paishu);
                        let tingpai = Majiang.Util.tingpai(shoupai);
                        let n_tingpai = tingpai
                                        .map(p =>
                                             this._suanpai._paishu[p[0]][p[1]])
                                        .reduce((x, y)=> x + y, 0);
                        info.push({
                            p: p, m: m, n_xiangting: n_xiangting, ev: ev,
                            tingpai: tingpai, n_tingpai: n_tingpai,
                        });
                    }

                    return m;
                }
            }
        }
    }

    select_dapai(info) {

        let anquan, min = Infinity;
        const weixian = this._suanpai.suan_weixian_all(this.shoupai._bingpai);
        if (weixian) {
            for (let p of this.get_dapai(this.shoupai)) {
                if (weixian(p) < min) {
                    min = weixian(p);
                    anquan = p;
                }
            }
        }

        let dapai = anquan, max = -1, min_tingpai = 0, backtrack = [];
        let n_xiangting = Majiang.Util.xiangting(this.shoupai);
        let paishu = this._suanpai.paishu_all();
        const paijia = this._suanpai.make_paijia(this.shoupai);
        const cmp = (a, b)=> paijia(a) - paijia(b);
        for (let p of this.get_dapai(this.shoupai).reverse().sort(cmp)) {
            if (! dapai) dapai = p;
            let shoupai = this.shoupai.clone().dapai(p);
            if (n_xiangting > 2 && this.xiangting(shoupai) > n_xiangting ||
                Majiang.Util.xiangting(shoupai) > n_xiangting)
            {
                if (anquan) continue;
                if (n_xiangting < 2) backtrack.push(p);
                continue;
            }

            let ev = this.eval_shoupai(shoupai, paishu);

            let tingpai = Majiang.Util.tingpai(shoupai);
            let n_tingpai = tingpai.map(p => this._suanpai._paishu[p[0]][p[1]])
                                   .reduce((x, y)=> x + y, 0);

            if (info) {
                info.map(i =>{ if (i.p == p.substr(0,2) && i.m)
                                    i.weixian = weixian && weixian(p) });
                if (! info.find(i => i.p == p.substr(0,2) && ! i.m)) {
                    info.push({
                        p: p.substr(0,2), n_xiangting: n_xiangting, ev: ev,
                        tingpai: tingpai, n_tingpai: n_tingpai,
                        weixian: weixian && weixian(p)
                    });
                }
            }

            if (weixian && weixian(p) > min) {
                if (weixian(p) >= 13.5) continue;
                if (n_xiangting > 2 ||  n_xiangting > 0 && ev < 300) {
                    if (weixian(p) >= 8.0) continue;
                    if (min < 3.0) continue;
                }
                else if (n_xiangting  > 0 && ev < 1200 ||
                         n_xiangting == 0 && ev <  200)
                {
                    if (weixian(p) >= 8.0) continue;
                    if (min < 3.0 && weixian(p) >= 3.0) continue;
                }
            }

            if (ev - max > 0.0000001) {
                max         = ev;
                dapai       = p;
                min_tingpai = n_tingpai * 6;
            }
        }
        let tmp_max = max;

        for (let p of backtrack) {
            let shoupai = this.shoupai.clone().dapai(p);
            let tingpai = Majiang.Util.tingpai(shoupai);
            let n_tingpai = tingpai.map(p => this._suanpai._paishu[p[0]][p[1]])
                                   .reduce((x, y)=> x + y, 0);
            if (n_tingpai < min_tingpai) continue;

            let back = p[0] + (+p[1]||5);
            let ev = this.eval_backtrack(shoupai, paishu, back, tmp_max * 2);

            if (info && ev > 0) {
                if (! info.find(i => i.p == p.substr(0,2) && ! i.m)) {
                    info.push({
                        p: p.substr(0,2), n_xiangting: n_xiangting + 1, ev: ev,
                        tingpai: tingpai, n_tingpai: n_tingpai
                    });
                }
            }

            if (ev - max > 0.0000001) {
                max   = ev;
                dapai = p;
            }
        }

        if (anquan) {

            if (info && dapai == anquan
                && ! info.find(i=> i.p == anquan.substr(0,2)))
            {
                info.push({
                    p: anquan.substr(0,2),
                    n_xiangting: Majiang.Util.xiangting(
                                        this.shoupai.clone().dapai(anquan)),
                    weixian: weixian && weixian(anquan)
                });
            }
        }

        if (this.select_lizhi(dapai) && max >= 200) dapai += '*';
        return dapai;
    }

    select_lizhi(p) {
        return this.allow_lizhi(this.shoupai, p);
    }

    select_daopai() {
        return this.allow_no_daopai(this.shoupai);
    }

    xiangting(shoupai) {
        function xiangting_menqian(shoupai) {
            return shoupai.menqian ? Majiang.Util.xiangting(shoupai) : Infinity;
        }
        function xiangting_fanpai(shoupai, zhuangfeng, menfeng, suanpai) {
            let n_fanpai = 0, back;
            for (let n of [ zhuangfeng + 1, menfeng + 1, 5, 6, 7 ]) {
                if      (shoupai._bingpai.z[n] >= 3) n_fanpai++;
                else if (shoupai._bingpai.z[n] == 2
                         && suanpai._paishu.z[n])    back = 'z'+n+n+n+'+';
                for (let m of shoupai._fulou) {
                    if (m[0] == 'z' && m[1] == n) n_fanpai++;
                }
            }
            if (n_fanpai) return Majiang.Util.xiangting(shoupai);
            if (back) {
                let new_shoupai = shoupai.clone();
                new_shoupai.fulou(back, false);
                new_shoupai._zimo = null;
                return Majiang.Util.xiangting(new_shoupai) + 1;
            }
            return Infinity;
        }
        function xiangting_duanyao(shoupai, rule) {
            if (! rule['クイタンあり'] && ! shoupai.menqian) return Infinity;
            if (shoupai._fulou.find(m=>m.match(/^z|[19]/))) return Infinity;
            let new_shoupai = shoupai.clone();
            for (let s of ['m','p','s']) {
                new_shoupai._bingpai[s][1] = 0;
                new_shoupai._bingpai[s][9] = 0;
            }
            new_shoupai._bingpai.z = [0,0,0,0,0,0,0,0];
            return Majiang.Util.xiangting(new_shoupai);
        }
        function xiangting_duidui(shoupai) {
            if (shoupai._fulou.map(m=>m.replace(/0/,'5'))
                              .find(m=>! m.match(/^[mpsz](\d)\1\1/)))
                                                            return Infinity;
            let n_kezi = shoupai._fulou.length, n_duizi = 0;
            for (let s of ['m','p','s','z']) {
                let bingpai = shoupai._bingpai[s];
                for (let n = 1; n < bingpai.length; n++) {
                    if      (bingpai[n] >= 3) n_kezi++;
                    else if (bingpai[n] == 2) n_duizi++;
                }
            }
            if (n_kezi + n_duizi > 5) n_duizi = 5 - n_kezi;
            return 8 - n_kezi * 2 - n_duizi;
        }
        function xiangting_yise(shoupai,suit) {
            const regexp = new RegExp(`^[z${suit}]`);
            if (shoupai._fulou.find(m=>! m.match(regexp))) return Infinity;
            let new_shoupai = shoupai.clone();
            for (let s of ['m','p','s']) {
                if (s != suit) new_shoupai._bingpai[s] = [0,0,0,0,0,0,0,0,0,0];
            }
            return Majiang.Util.xiangting(new_shoupai);
        }

        return Math.min(
            xiangting_menqian(shoupai),
            xiangting_fanpai(shoupai,
                    this._model.zhuangfeng, this._menfeng, this._suanpai),
            xiangting_duanyao(shoupai, this._rule),
            xiangting_duidui(shoupai),
            xiangting_yise(shoupai, 'm'),
            xiangting_yise(shoupai, 'p'),
            xiangting_yise(shoupai, 's')
        );
    }

    tingpai(shoupai) {

        let n_xiangting = this.xiangting(shoupai);

        let pai = [];
        for (let p of Majiang.Util.tingpai(shoupai, (s)=>this.xiangting(s))) {

            if (n_xiangting > 0) {

                for (let m of this.get_peng_mianzi(shoupai, p+'+')) {
                    let new_shoupai = shoupai.clone().fulou(m);
                    if (this.xiangting(new_shoupai) < n_xiangting) {
                        pai.push(p+'+');
                        break;
                    }
                }
                if (pai[pai.length - 1] == p+'+') continue;

                for (let m of this.get_chi_mianzi(shoupai, p+'-')) {
                    let new_shoupai = shoupai.clone().fulou(m);
                    if (this.xiangting(new_shoupai) < n_xiangting) {
                        pai.push(p+'-');
                        break;
                    }
                }
                if (pai[pai.length - 1] == p+'-') continue;
            }
            pai.push(p);
        }
        return pai;
    }

    get_defen(shoupai, rongpai) {

        let paistr = shoupai.toString();
        if (rongpai)
                paistr = paistr.replace(/^([^\*\,]*)(.*)$/, `$1${rongpai}$2`);
        if (this._defen_cache[paistr] != null) return this._defen_cache[paistr];

        let param = {
            rule:       this._rule,
            zhuangfeng: this._model.zhuangfeng,
            menfeng:    this._menfeng,
            hupai:      { lizhi: shoupai.menqian },
            baopai:     this.shan.baopai,
            jicun:      { changbang: 0, lizhibang: 0 }
        };
        let hule = Majiang.Util.hule(shoupai, rongpai, param);

        this._defen_cache[paistr] = hule.defen;
        return hule.defen;
    }

    eval_shoupai(shoupai, paishu, back) {

        let paistr = shoupai.toString() + (back != null ? `:${back}` : '');
        if (this._eval_cache[paistr] != null) return this._eval_cache[paistr];

        let rv = 0;
        let n_xiangting = Majiang.Util.xiangting(shoupai);

        if (n_xiangting == -1) {
            rv = this.get_defen(shoupai);
        }
        else if (shoupai._zimo) {
            for (let p of this.get_dapai(shoupai)) {
                let new_shoupai = shoupai.clone().dapai(p);
                if (Majiang.Util.xiangting(new_shoupai) > n_xiangting) continue;

                let ev = this.eval_shoupai(new_shoupai, paishu, back);

                if (ev > rv) rv = ev;
            }
        }
        else if (n_xiangting < 3) {
            for (let p of add_hongpai(Majiang.Util.tingpai(shoupai))) {
                if (p == back) { rv = 0; break }
                if (paishu[p] == 0) continue;
                let new_shoupai = shoupai.clone().zimo(p);
                paishu[p]--;

                let ev = this.eval_shoupai(new_shoupai, paishu, back);
                if (! back) {
                    if (n_xiangting > 0)
                        ev += this.eval_fulou(shoupai, p, paishu, back);
                }

                paishu[p]++;
                rv += ev * paishu[p];
            }
            rv /= width[n_xiangting];
        }
        else {
            for (let p of add_hongpai(this.tingpai(shoupai))) {
                if (paishu[p.substr(0,2)] == 0) continue;

                rv += paishu[p.substr(0,2)] * (   p[2] == '+' ? 4
                                                : p[2] == '-' ? 2
                                                :               1  );
            }
        }

        this._eval_cache[paistr] = rv;
        return rv;
    }

    eval_backtrack(shoupai, paishu, back, min) {

        let n_xiangting = Majiang.Util.xiangting(shoupai);

        let rv = 0
        for (let p of add_hongpai(Majiang.Util.tingpai(shoupai))) {
            if (p.replace(/0/,'5') == back) continue;
            if (paishu[p] == 0)             continue;

            let new_shoupai = shoupai.clone().zimo(p);
            paishu[p]--;

            let ev = this.eval_shoupai(new_shoupai, paishu, back);

            paishu[p]++;
            if (ev - min > 0.0000001) rv += ev * paishu[p];
        }
        return rv / width[n_xiangting];
    }

    eval_fulou(shoupai, p, paishu, back) {

        let n_xiangting = Majiang.Util.xiangting(shoupai);

        let peng_max = 0;
        for (let m of this.get_peng_mianzi(shoupai, p+'+')) {
            let new_shoupai = shoupai.clone().fulou(m);
            if (Majiang.Util.xiangting(new_shoupai) >= n_xiangting) continue;
            peng_max = Math.max(this.eval_shoupai(new_shoupai, paishu, back),
                                peng_max);
        }

        let chi_max = 0;
        for (let m of this.get_chi_mianzi(shoupai, p+'-')) {
            let new_shoupai = shoupai.clone().fulou(m);
            if (Majiang.Util.xiangting(new_shoupai) >= n_xiangting) continue;
            chi_max  = Math.max(this.eval_shoupai(new_shoupai, paishu, back),
                                chi_max);
        }

        return peng_max > chi_max ? peng_max * 3 : peng_max * 2 + chi_max;
    }
}