怎样计算扑克牌24点

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助：各位高人！
有一种游戏，就是从52张扑克牌中随便抽出4张，用+ - * / (加、减、乘、除)算出24点。
请教如何用SAS快速计算出，并列出计算方式。
谢谢！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：扑克牌 如何用 扑克牌

请问J、Q、K算11、12、13；还是1,2,3？

会有好多种组合

还是用SAS算算怎么买彩票能中奖吧，这个比较有用。

还是用SAS算算怎么票买彩票能中奖吧，这个比较有用。

正确答案：http://zh.wikipedia.org/zh/24%E7%82%B9

从扑克中任意抽出四张（数字表示为1－13），用加、减、乘、除的方法使结果成为24，每张牌只能用一次。 一副牌（52张）中，任意抽取4张可有1820种不同组合。
即不考虑顺序、以及花色，有1820个组合。其中，458个是无解的。即有1820-458=1362个。


可我算出来，只有1323个（只考虑数字）。每个组合提供一种计算方法。
若要考虑每个组合提供多种计算方法，正在思考中（未解决部分重复的问题）。

1. data a;
   
2.         length expr $ 15;
   
3.         do x1=1 to 13;
   
4.                 do x2=1 to 13;
   
5.                         expr=cats('(',x1,'+',x2,')');value=x1+x2;output;
   
6.                         expr=cats('(',x1,'-',x2,')');value=x1-x2;output;
   
7.                         expr=cats('(',x1,'*',x2,')');value=x1*x2;output;
   
8.                         expr=cats('(',x1,'/',x2,')');value=x1/x2;output;
   
9.                         output;
   
10.                 end;
    
11.         end;
    
12. run;
    
13. 
    
14. 
    
15. data b(drop=i j);
    
16. 
    
17.         retain x3-x4 value1 expr1;
    
18. 
    
19.         do i=1 to 13;
    
20.                 do j=1 to 13;
    
21. 
    
22.                         x3=i;x4=j;
    
23.                         value1=(24+i)+j;expr1=cats('-',j,')','-',i);output;
    
24.                         value1=(24+i)-j;expr1=cats('+',j,')','-',i);output;
    
25.                         value1=(24+i)*j;expr1=cats('/',j,')','-',i);output;
    
26.                         value1=(24+i)/j;expr1=cats('*',j,')','-',i);output;
    
27.                         value1=(24-i)+j;expr1=cats('-',j,')','+',i);output;
    
28.                         value1=(24-i)-j;expr1=cats('+',j,')','+',i);output;
    
29.                         value1=(24-i)*j;expr1=cats('/',j,')','+',i);output;
    
30.                         value1=(24-i)/j;expr1=cats('*',j,')','+',i);output;
    
31.                         value1=(24*i)+j;expr1=cats('-',j,')','/',i);output;
    
32.                         value1=(24*i)-j;expr1=cats('+',j,')','/',i);output;
    
33.                         value1=(24*i)*j;expr1=cats('/',j,')','/',i);output;
    
34.                         value1=(24*i)/j;expr1=cats('*',j,')','/',i);output;
    
35.                         value1=(24/i)+j;expr1=cats('-',j,')','*',i);output;
    
36.                         value1=(24/i)-j;expr1=cats('+',j,')','*',i);output;
    
37.                         value1=(24/i)*j;expr1=cats('/',j,')','*',i);output;
    
38.                         value1=(24/i)/j;expr1=cats('*',j,')','*',i);output;
    
39. 
    
40. 
    
41. 
    
42. 
    
43.                 end;
    
44.         end;
    
45.         
    
46. run;
    
47. 
    
48. 
    
49. 
    
50. data a_result(drop=rc expr1 value1 value);
    
51. 
    
52.         retain x1-x4 expr;
    
53. 
    
54.         if _N_=0 then set a;
    
55.         declare hash h1 (dataset: 'a') ;
    
56.         declare hiter iter('h1');
    
57.         h1.defineKey('expr');
    
58.         h1.defineData(all:'yes');
    
59.         h1.defineDone() ;
    
60. 
    
61.         set a(rename=(x1=x3 x2=x4 value=value1 expr=expr1));
    
62. 
    
63.         rc = iter.first();
    
64.         do while(rc=0);
    
65.                 select;
    
66.                         when(abs((value*value1)-24)<=0.0001) do;expr=cats(expr,'*',expr1);output;end;
    
67.                         when((value+value1)=24) do;expr=cats(expr,'+',expr1);output;end;
    
68.                         when(value1<>0 and abs((value/value1)-24)<=0.0001) do;expr=cats(expr,'/',expr1);output;end;
    
69.                         when((value-value1)=24) do;expr=cats(expr,'-',expr1);output;end;
    
70.                         otherwise;
    
71.                 end;
    
72.            rc=iter.next();
    
73.         end;
    
74.         
    
75. run ;
    
76. 
    
77. 
    
78. data b_result(drop=rc expr1 value1 value);
    
79. 
    
80.         retain x1-x4 expr;
    
81. 
    
82.         if _N_=0 then set a;
    
83.         declare hash h2 (dataset: 'a') ;
    
84.         declare hiter iter('h2');
    
85.         h2.defineKey('expr');
    
86.         h2.defineData(all:'yes');
    
87.         h2.defineDone() ;
    
88. 
    
89.         set b;
    
90. 
    
91.         rc = iter.first();
    
92.         do while(rc=0);
    
93.                 if (value=value1) then do;
    
94.                         expr=cats('(',expr,expr1);output;
    
95.                 end;
    
96.            rc=iter.next();
    
97.         end;
    
98.         
    
99. run ;
    
100. 
     
101. 
     
102. data result;
     
103. set a_result b_result;
     
104. run;
     
105. 
     
106. 
     
107. data result(drop=i j temp);
     
108.         
     
109.         
     
110.         retain cats x1-x4 expr;
     
111.         length cats $ 11;        
     
112. 
     
113.         set result;
     
114.         array arr(*) x:;
     
115.         do i=1 to dim(arr);
     
116.                 do j=1 to dim(arr)-1;
     
117.                         if arr(j)>arr(j+1) then do;
     
118.                                 temp=arr(j);arr(j)=arr(j+1);arr(j+1)=temp;
     
119.                         end;
     
120.                 end;
     
121.         end;
     
122.         
     
123.         cats=catx('-',of x1-x4);
     
124. run;
     
125. 
     
126. proc datasets library=work detail;
     
127.         save result/mt=data;
     
128. quit;
     
129. 
     
130. proc sort data=result nodupkey;by cats;run;

复制代码

感兴趣，一起研究一下。再也不用担心玩24点了。

缺的找不到原因？

找到原因了，差几种模式。
我只计算了概率大的形式：
(A_B)_(C_D)、
((A_B)_C)_D、

其中，_代表+、-、*、/。

zhengbo8  牛！！ SAS对数据的处理真是厉害。