[开_150]斗牛游戏[已总结]

flykiss80

游戏规则	总结帖33楼
“斗牛”是一种在我们这个区域流行的扑克牌游戏。一副扑克牌，去掉大、小王，剩余52张用于牌局。
每人每局发5张牌，根据这5张牌计算点数，比较点数大小。
为方便题目，简化点数计算规则如下。
1、A-K分别用数字1-13代替。在计算点数时1-10按其本身计算，而11-13均被当作10计算。
2、5张牌中，首先判断是否其中有3张牌之和为10或10的倍数
3、若步骤2结果为否，视为没有点数，则取5张牌中最大的一张牌的点，显示结果为“XX大”
4、若步骤2结果为是，视为有点数，则计算剩余2张牌之和。
5、若步骤4中2张牌之和也为10或10的倍数，显示结果为“牛”
6、如步骤4中2张牌之和不为10或10的倍数，则点数为2张牌之和的个位数，显示结果为“X点”
游戏中，牛  > X点 > XX大，这里我们不比较大小了，只要计算点数即可
题目要求
1、纯函数公式，一键下拉；拒绝VBA、定义名称、设置单元格格式等
2、不得引用除绿色区域外的其它区域，row、column函数除外
3、不得直接使用手工不连续的数组，如{1,3,4,6,7}等之类的
4、不限制excel版本，函数多了思路也多，更有趣
结果评分
1、正确答案，且长度<=200字符的给予技术1分

2、正确答案，且长度<150字符的给予技术2分

竞赛日期：2015年7月1日 至 2015年8月15日

斗牛游戏竞赛题 -题目.rar (8.45 KB, 下载次数: 377)

2015-7-1 15:39 上传

点击文件名下载附件

delete_007

F2数组公式，147字符：

1. =IF(OR(MMULT(1+TEXT(A2:E2,"[>9]!0")%,MOD(INT(COLUMN(A:AE)/2^ROW($1:$5)*2),2))={3;3.1;3.2}),TEXT(MOD(SUMIF(A2:E2,"<10"),10),"0点;;牛"),MAX(A2:E2)&"大")

复制代码

稍简化，省几个字符，142字符。

1. =IF(OR(MMULT(1+A2:E2*(A2:E2<10)%,MOD(INT(COLUMN(A:AE)/2^ROW($1:$5)*2),2))={3;3.1;3.2}),TEXT(RIGHT(SUMIF(A2:E2,"<10")),"0点;;牛"),MAX(A2:E2)&"大")

复制代码

首席打杂

1. =IF(AND(MOD(SUM(-TEXT(A2:E2,"[>9]1!0"))+IF(ROW($1:$5)<>COLUMN(A:E),TEXT(A2:E2,"[>9]1!0")+TRANSPOSE(TEXT(A2:E2,"[>9]1!0")),1%),10)),MAX(A2:E2)&"大",TEXT(RIGHT(SUM(-TEXT(A2:E2,"[>9]1!0"))),"0点;;牛"))

复制代码

13732120571

2003版*************************************
189字符

1. =IF(AND(ISNA(MATCH({310,320,330},MMULT((MOD(ROW($1:$32)/2^COLUMN(A:E)*2,2)<1)*TEXT(A2:E2,"[>9]11!0;100"),1^ROW(1:5)),))),MAX(A2:E2)&"大",TEXT(MOD(SUM(LOOKUP(A2:E2,ROW($1:$10))),10),"0点;;牛"))

复制代码

185字符

1. =IF(COUNT(MATCH({310,320,330},MMULT((MOD(ROW($1:$32)/2^COLUMN(A:E)*2,2)<1)*TEXT(A2:E2,"[>9]11!0;100"),1^ROW(1:5)),)),TEXT(MOD(SUM(LOOKUP(A2:E2,ROW($1:$10))),10),"0点;;牛"),MAX(A2:E2)&"大")

复制代码

174字符

1. =IF(OR({310,320,330}=MMULT((MOD(ROW($1:$32)/2^COLUMN(A:E)*2,2)<1)*TEXT(A3:E3,"[>9]11!0;100"),1^ROW(2:6))),TEXT(MOD(SUM(LOOKUP(A3:E3,ROW($1:$10))),10),"0点;;牛"),MAX(A3:E3)&"大")

复制代码

154字符

1. =TEXT(LOOKUP(9,IF({0,1},MOD(HLOOKUP("3?0*",MMULT(100+TEXT(A2:E2,"[>9]!0"),10^4^(MOD(COLUMN(A:AF)/2^ROW($1:$5)*2,2)<1))&"",1,),10),-MAX(A2:E2))),"0点;0大;牛")

复制代码

149字符

1. =TEXT(LOOKUP(9,IF({0,1},MOD(HLOOKUP("3?0*",MMULT(100+A2:E2*(A2:E2<10),10^4^(MOD(COLUMN(C:Y)/2^ROW($1:$5)*2,2)<1))&"",1,),10),-MAX(A2:E2))),"0点;0大;牛")

复制代码

2007版**********************************
160字符

1. =IFERROR(TEXT(RIGHT(VLOOKUP("3?0*",MMULT((100+LOOKUP(A2:E2,COLUMN(A:J)))/1%%^(MOD(ROW($1:$32)/2^COLUMN(A:E)*2,2)<1),1^ROW(1:5))&"",1,)),"0点;;牛"),MAX(A2:E2)&"大")

复制代码

152字符

1. =TEXT(IFERROR(RIGHT(VLOOKUP("3?0*",MMULT((11&TEXT(A2:E2,"[>9]!0"))/1%%^(MOD(ROW($1:32)/2^COLUMN(A:E)*2,2)<1),1^ROW(1:5))&"",1,)),-MAX(A2:E2)),"0点;0大;牛")

复制代码

继续向150冲~~
142字符

1. =TEXT(IFERROR(RIGHT(HLOOKUP("3?0*",MMULT(100+TEXT(A2:E2,"[>9]!0"),10^4^(MOD(COLUMN(A:AF)/2^ROW($1:$5)*2,2)<1))&"",1,)),-MAX(A2:E2)),"0点;0大;牛")

复制代码

继续还能冲吗？{:soso_e130:}

********2015-7-5 23:13 编辑
据说2013有IFNA   
139字符

1. =TEXT(IFNA(RIGHT(HLOOKUP("3?0*",MMULT(100+TEXT(A2:E2,"[>9]!0"),10^4^(MOD(COLUMN(A:AF)/2^ROW($1:$5)*2,2)<1))&"",1,)),-MAX(A2:E2)),"0点;0大;牛")

复制代码

{:soso_e130:}不知还能简化不~{:soso_e163:}
********2015-7-9 14:07编辑
134字符

1. =TEXT(IFNA(RIGHT(HLOOKUP("3?0*",MMULT(100+A2:E2*(A2:E2<10),10^4^(MOD(COLUMN(C:Y)/2^ROW($1:$5)*2,2)<1))&"",1,)),-MAX(A2:E2)),"0点;0大;牛")

复制代码

从猿人到现代人{:soso_e130:}
这个进化史，漫漫长路~

丢丢表格

5、

1. =TEXT(IFERROR(MOD(HLOOKUP("3?02*",MMULT((A2:E2<10)*A2:E2+100,1000^(MOD(COLUMN(A:X)/2^ROW($1:$5)*2,2)<1))&"",1,),10),-MAX(A2:E2)),"0点;0大;牛")

复制代码

4、=TEXT(MIN(--REPLACE(MID(MMULT((A2:E2<10)*A2:E2+1%,10^8^(MOD(COLUMN(A:X)/2^ROW($1:$5)*2,2)<1))+997*10^6,2,9),8,1,),MAX(A2:E2)*1000),"[>9]0,大;[>]0点;牛")

3、=TEXT(MIN(--REPLACE(MID(MMULT(IF(A2:E2>9,,A2:E2)+1%,10^8^(MOD(COLUMN(A:X)/2^ROW($1:$5)*2,2)<1))+997*10^6,2,9),8,1,),MAX(A2:E2)*1000),"[>9]0,大;[>]0点;牛")

2、=TEXT(MIN(MMULT(MOD(ABS({1,0}*SUM(IF(A2:E2>9,,A2:E2))+MMULT(-TEXT(N(OFFSET(A2,,MID({1;2;3;4;12;13;14;23;24;34}&0,{1,2},1))),"[>9]!0"),{1;1})),10),{10;1}^6),MAX(A2:E2)*1000),"[>1000]#,大;[>]0点;牛")

先开辆 火车再说
1、=TEXT(MIN(MMULT({10,1}^6,MOD(ABS({0;1}*SUM(IF(A2:E2>9,10,A2:E2))-TEXT(MMULT(IF(A2:E2>9,10,A2:E2)+100,--MID(DEC2BIN(COLUMN(AI:BH)),ROW($2:$6),1))-300,"[>99]9;9;0")),10)),MAX(A2:E2)*1000),"[>1000]0,大;[>]0点;牛")

pxiceplay

F2数组（146）：
=IF(AND(MOD(MMULT(A2:E2*(A2:E2<10)+1%,--MID(DEC2BIN(COLUMN(G:AB),5),ROW($1:$5),1))-3%,10)),MAX(A2:E2)&"大",TEXT(RIGHT(SUMIF(A2:E2,"<10")),"0点;;牛"))
不过为了防止不知道会不会蹦出来的浮点误差（148）：

1. =IF(AND(MOD(MMULT(A2:E2*(A2:E2<10)*10+1,--MID(DEC2BIN(COLUMN(G:AB),5),ROW($1:$5),1))-3,100)),MAX(A2:E2)&"大",TEXT(RIGHT(SUMIF(A2:E2,"<10")),"0点;;牛"))

复制代码

sayhi95

1. =IF(MIN(MOD(SUM((A2:E2<10)*A2:E2)-SMALL(IF(ROW($1:$5)<>COLUMN(A:E),(A2:E2<10)*A2:E2+TRANSPOSE((A2:E2<10)*A2:E2)),ROW($1:$10)*2),10)),MAX(A2:E2)&"大",TEXT(MOD(SUM((A2:E2<10)*A2:E2),10),"0点;;牛"))

复制代码

jokie0913

1. =IF(SUM(IF(MOD(ROW($1:$25),6)=1,,IF(MOD(LOOKUP(MOD(ROW($1:$25)-1,5)+1,ROW($1:$5),(A16:E16<10)*A16:E16)+LOOKUP(INT((ROW($1:$25)-1)/5)+1,ROW($1:$5),(A16:E16<10)*A16:E16)-SUM((A16:E16<10)*A16:E16),10),,1))),IF(MOD(SUM((A16:E16<10)*A16:E16),10),MOD(SUM((A16:E16<10)*A16:E16),10)&"点","牛"),MAX(A16:E16)&"大")

复制代码

先解出来再说，还没有优化过，长度神马的再想想……

cmxxccxx

要求是一键下拉，那就不能用数组公式了；不能使用不连续常量数组{}，那可以使用常量，可以使用ROW，COLUMN，想了很久，想到的是

1. =IF(MIN(MOD(TEXT(MMULT(100+A2:E2*(A2:E2<10),N(MOD(COLUMN(A:Z)*2/2^ROW($1:$5),2)<1)),"[>399]9;[<300]9;0"),10)),MAX(A2:E2)&"大",TEXT(MOD(SUMPRODUCT(A2:E2*(A2:E2<10)),10),"0点;;牛"))

复制代码

再想还能压缩到141字符，03版普通公式下拉：（高版本的不会，坐等看答案）

1. =IF(COUNT(FIND(3%,MMULT(1%+A2:E2*(A2:E2<10),N(MOD(COLUMN(A:Z)*2/2^ROW($1:$5),2)<1)))),TEXT(RIGHT(SUMIF(A2:E2,"<10")),"0点;;牛"),MAX(A2:E2)&"大")

复制代码

笑眼晴天

1. =IF(COUNT(SEARCH("3?0",MMULT((A2:E2<=9)*A2:E2+100,-(MOD(COLUMN(1:1)/2^ROW($1:$5),2)<1)))),TEXT(RIGHT(SUM((A2:E2<=9)*A2:E2)),"0点;;牛"),MAX(A2:E2)&"大")

复制代码