牛牛计算算法

夜华

很久之前的自己的一个脚本了
16年的时候还算不好.这个版本包含大小王计算牛牛

仅供参考学习了
计算参考

A-A-8
A-2-7
A-3-6
A-4-5
A-10-9
A-J-9
A-Q-9
A-K-9
2-A-7
2-2-6
2-3-5
2-4-4
2-9-9
2-10-8
2-J-8
2-Q-8
2-K-8
3-1-6
3-3-4
3-8-9
3-7-10
3-7-J
3-7-Q
3-7-K
4-6-10
4-6-J
4-6-Q
4-6-K
4-7-9
4-8-8
5-5-10
5-5-J
5-5-Q
5-5-K
5-6-9
5-7-8
6-6-8
6-7-7
10-10-10
10-J-J
10-10-J
10-Q-Q
10-10-Q
10-10-K
10-J-Q
10-J-K
J-J-J
J-10-J
J-10-Q
J-10-K
J-J-K
J-Q-K
J-K-K
Q-Q-Q
Q-K-Q
Q-K-K
K-K-10
K-K-J
K-K-K
王-1-9
王-2-8
王-3-7
王-4-6
王-5-5
王-10-10
王-10-J
王-10-Q
王-10-K
王-J-J
王-J-Q
王-J-K
王-Q-Q
王-Q-K
王-K-K
王-王-10
王-王-J
王-王-Q
王-王-K

  

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
识别结果	文本型

变量名	类 型	静态	数组	备 注
数据	文本型		0
i	整数型
数据单行	文本型		0
l	整数型
识别结果单	文本型		0
n	整数型
临时变量	位置和字母
输出信息	位置和字母		0
m	整数型

数据 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\库\对比数据.ini”)), #换行符, )
计次循环首 (取数组成员数 (数据), i)
如果真 (数据 [i] ≠ “”)
数据单行 ＝ 分割文本 (数据 [i], “-”, )
计次循环首 (取数组成员数 (数据单行), l)
识别结果单 ＝ 分割文本 (识别结果, “|”, )
计次循环首 (取数组成员数 (识别结果单), n)
如果真 (数据单行 [l] ＝ 识别结果单 [n])
临时变量.位置 ＝ n
临时变量.字母 ＝ 识别结果单 [n]
如果真 (过滤已存在 (临时变量.字母, 输出信息) ＝ 假)
加入成员 (输出信息, 临时变量)


计次循环尾 ()
计次循环尾 ()
判断 (取数组成员数 (输出信息) ≥ 3)
计次循环首 (取数组成员数 (输出信息), m)
调试输出 (“匹配结果：”, 输出信息 [m].位置, 输出信息 [m].字母)
点击 (输出信息 [m].位置)  ' 加速配牌
计次循环尾 ()
判断 (取数组成员数 (输出信息) ＜ 3)
调试输出 (识别结果)


清除数组 (输出信息)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
过滤已存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
字符_	文本型
已存在	位置和字母

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (已存在), i)
如果真 (已存在 [i].字母 ＝ 字符_)
返回 (真)

计次循环尾 ()
返回 (假)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .参数 识别结果, 文本型<br /> .局部变量 数据, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 数据单行, 文本型, , "0"<br /> .局部变量 l, 整数型<br /> .局部变量 识别结果单, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 临时变量, 位置和字母<br /> .局部变量 输出信息, 位置和字母, , "0"<br /> .局部变量 m, 整数型<br /> <br /> 数据 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\库\对比数据.ini”)), #换行符, )<br /> .计次循环首 (取数组成员数 (数据), i)<br />     .如果真 (数据 <i> ≠ “”)<br />         数据单行 ＝ 分割文本 (数据 <i>, “-”, )<br />         .计次循环首 (取数组成员数 (数据单行), l)<br />             识别结果单 ＝ 分割文本 (识别结果, “|”, )<br />             .计次循环首 (取数组成员数 (识别结果单), n)<br />                 .如果真 (数据单行 [l] ＝ 识别结果单 [n])<br />                     临时变量.位置 ＝ n<br />                     临时变量.字母 ＝ 识别结果单 [n]<br />                     .如果真 (过滤已存在 (临时变量.字母, 输出信息) ＝ 假)<br />                         加入成员 (输出信息, 临时变量)<br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />         .判断开始 (取数组成员数 (输出信息) ≥ 3)<br />             .计次循环首 (取数组成员数 (输出信息), m)<br />                 调试输出 (“匹配结果：”, 输出信息 [m].位置, 输出信息 [m].字母)<br />                 点击 (输出信息 [m].位置)  ' 加速配牌<br />             .计次循环尾 ()<br />         .判断 (取数组成员数 (输出信息) ＜ 3)<br />             调试输出 (识别结果)<br />         .默认<br /> <br />         .判断结束<br />         清除数组 (输出信息)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .版本 2<br /> <br /> .子程序 过滤已存在, 逻辑型<br /> .参数 字符_, 文本型<br /> .参数 已存在, 位置和字母, 数组<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (已存在), i)<br />     .如果真 (已存在 <i>.字母 ＝ 字符_)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)

啊麟

哈哈哈哈哈哈垃圾帖，笑死我了tmd，这是人干的事？

玄冰

啊麟 发表于 2021-5-14 19:46
哈哈哈哈哈哈垃圾帖，笑死我了tmd，这是人干的事？

怎么说？

CoCo1

         这个垃圾帖整的就很细节

applepear

这个具体怎么用

whisk

垃圾帖哈哈哈哈 就离谱

点点丶滴滴

感谢分享，很给力！~

a718422052

这............................

小牛咪咪

牛牛

人生如此繁华

牛牛牛算法啊