[原创]24点游戏源代码

sxy

当然，这个问题还有一种很好的算法：递归。
所谓好的算法是指能推广到25点，26点。。。也可以推广到5个数，6个数。。。

林的家人

好象在basic中也能开发24点，并能推广到机器的最大能力
[em06]

songfei

编译 noname.txt ...
1 PASS OK!
2 PASS OK!
错误:=左边操作数必须是变量发生在287行

leesoft

代码一帖论坛上就走样了。比如 [ 符号有时会被吃掉（当作ubb代码了）

songfei

那以后保存成文本文件，然后上 传为附件就行了吧

sxy

1. 
   
2. 
   
3. 
   
4. 
   
5. /************************************************
   
6. 24D Game
   
7. Write By Sxy
   
8. 05.4.21~
   
9. Version 1.1
   
10. 
    
11. 用逆波兰式实现,但在WQX上速度太慢,谁能不能想出更好的算法
    
12. ************************************************/
    
13. #define MAXTREE  10
    
14. #define MAIN     1
    
15. #define PLAY     2
    
16. #define CHECK    3
    
17. #define ABOUT    4
    
18. #define QUIT     0
    
19. #define UP       20
    
20. #define DOWN     21
    
21. #define LEFT     23
    
22. #define RIGHT    22
    
23. #define OK       0x0d
    
24. #define ESC      0x1b
    
25. #define SHIFT    26
    
26. long Message;      //message
    
27. int oindex[5][3]={2,4,6,3,4,6,2,5,6,3,5,6,4,5,6};
    
28. int dindex[5][4]={0,1,3,5,0,1,2,5,0,1,3,4,0,1,2,4,0,1,2,3};
    
29. char opera[]="+-*/";
    
30. char _oper[]="+++++-++*++/+-++--+-*+-/+*++*-+**+*/+/++/-+/*+//-++-+--+*-+/--+-----*--/-*+-*--**-*/-/+-/--/*-//*++*+-*+**+/*-+*--*-**-/**+**-*****/*/+*/-*/**///++/+-/+*/+//-+/--/-*/-//*+/*-/**/*///+//-//*///";
    
31. int _dindex[24][4]={1,2,3,4, 1,2,4,3, 1,3,2,4, 1,3,4,2, 1,4,2,3, 1,4,3,2,
    
32.                      2,1,3,4, 2,1,4,3, 2,3,4,1, 2,3,1,4, 2,4,1,3, 2,4,3,1,
    
33.                      3,1,2,4, 3,1,4,2, 3,2,1,4, 3,2,4,1, 3,4,1,2, 3,4,2,1,
    
34.                      4,1,2,3, 4,1,3,2, 4,2,3,1, 4,2,1,3, 4,3,2,1, 4,3,1,2};
    
35. char _TreeNode[MAXTREE][9];         //0~1:data,2,bit,3-4:left,5-6:right,6-7:parent
    
36. char _TreeStau[MAXTREE];             //1:user,2:unuser
    
37. int  _TreeData[2];                   //temp data for Tree structure
    
38. //****************************************************
    
39. int  bit=0;               //if  / 1,else 0  
    
40. //****************************************************
    
41. char match[]=">><<<>>>><<<>>>>>><>>>>>><>><<<<<= >>>> >><<<<< =";
    
42. char operat[]="+-*/()@";
    
43. char Match(char ch1,char ch2)
    
44. {
    
45. int i,j;
    
46. i=0;
    
47. j=0;
    
48. while(operat[i]!=ch1) i++;
    
49. while(operat[j]!=ch2) j++;
    
50. return match[i*7+j];
    
51. }
    
52. ////////////////////实现树结构//////////////////////////
    
53. void InitTree()           //init treeNode data
    
54. {
    
55.    int k;
    
56.    for(k=0;k<MAXTREE;k++) _TreeStau[k]=0;
    
57. }
    
58. long CreateTree()         //建立一个树节点,返回节点位置
    
59. {
    
60.    int k;
    
61.    k=0;
    
62.    while(_TreeStau[k])k++;
    
63.    _TreeStau[k]=1;
    
64.    return k;
    
65. }
    
66. void DestroyTree(int index)  //销毁树节点
    
67. {
    
68.    _TreeStau[index]=0;
    
69. }
    
70. void SetLeft(int index,int left)   //将left赋给节点位置为index的树节点的左节点
    
71. {
    
72.    _TreeData[0]=left;
    
73.    memcpy(_TreeNode[index]+3,_TreeData,2);
    
74. }
    
75. void SetRight(int index,int right)  //................
    
76. {
    
77.    _TreeData[0]=right;
    
78.    memcpy(_TreeNode[index]+5,_TreeData,2);
    
79. }
    
80. void SetParent(int index,int parent)
    
81. {
    
82.    _TreeData[0]=parent;
    
83.    memcpy(_TreeNode[index]+7,_TreeData,2);
    
84. }
    
85. void SetData(int index,int data)
    
86. {
    
87.    _TreeData[0]=data;
    
88.    memcpy(_TreeNode[index],_TreeData,2);
    
89. }
    
90. long GetLeft(int index)         //返回index的右孩子
    
91. {
    
92.     memcpy(_TreeData,_TreeNode[index]+3,2);
    
93.     return _TreeData[0];
    
94. }
    
95. long GetRight(int index)
    
96. {
    
97.     memcpy(_TreeData,_TreeNode[index]+5,2);
    
98.     return _TreeData[0];
    
99. }
    
100. long GetParent(int index)
     
101. {
     
102.     memcpy(_TreeData,_TreeNode[index]+7,2);
     
103.     return _TreeData[0];
     
104. }
     
105. long GetData(int index)
     
106. {
     
107.     memcpy(_TreeData,_TreeNode[index],2);
     
108.     return _TreeData[0];
     
109. }
     
110. ///////////////////////////////////////////////////////
     
111. long CreateBN(long str,int length) // 用一个int str[]逆波兰式建立一棵树
     
112. {
     
113.     int data[10];
     
114.     int node[10];
     
115.     int k,i;
     
116.     int p,r,l;
     
117.     memcpy(data,str,length*2);
     
118.     InitTree();
     
119.     i=0;                    //index for node
     
120.     for(k=0;k<length;k++){
     
121.        if(data[k]=='+'||data[k]=='-'||data[k]=='*'||data[k]=='/'){
     
122.          r=node[--i];
     
123.          l=node[--i];
     
124.          p=CreateTree();
     
125.          SetLeft(p,l);
     
126.          SetRight(p,r);
     
127.          SetParent(p,-1);        //(>20)=NULL here
     
128.          SetData(p,data[k]);
     
129.          SetParent(r,p);
     
130.          SetParent(l,p);
     
131.          node[i++]=p;
     
132.        }
     
133.        else{
     
134.          p=CreateTree();
     
135.          SetLeft(p,-1);
     
136.          SetRight(p,-1);
     
137.          SetParent(p,-1);
     
138.          SetData(p,data[k]);
     
139.          node[i++]=p;
     
140.        }
     
141.     }
     
142.     return node[0];
     
143. }
     
144. //////////////////////////////////////////////////////
     
145. void printBN(int root)  //打印逆波兰式
     
146. {
     
147.      if(GetLeft(root)<0) printf("%d",GetData(root));
     
148.      else{
     
149.         printBN(GetLeft(root));
     
150.         printBN(GetRight(root));
     
151.         printf("%c",GetData(root));
     
152.      }
     
153. }   
     
154. void PrintExpr(int root)   //打印中缀表达式
     
155. {
     
156.      if(GetLeft(root)<0) printf("%d",GetData(root));
     
157.      else if(GetParent(root)<0){
     
158.            PrintExpr(GetLeft(root));
     
159.            printf("%c",GetData(root));
     
160.            PrintExpr(GetRight(root));
     
161.      }
     
162.      else if(GetLeft(GetParent(root))==root&&Match(GetData(root),GetData(GetParent(root)))=='>'){
     
163.            PrintExpr(GetLeft(root));
     
164.            printf("%c",GetData(root));
     
165.            PrintExpr(GetRight(root));
     
166.      }
     
167.      else if(GetRight(GetParent(root))==root&&(GetData(GetParent(root))=='+'||Match(GetData(GetParent(root)),GetData(root))=='<'||(GetData(GetParent(root))=='*'&&GetData(root)=='*'))){
     
168.            PrintExpr(GetLeft(root));
     
169.            printf("%c",GetData(root));
     
170.            PrintExpr(GetRight(root));
     
171.      }
     
172.      else{
     
173.            printf("(");
     
174.            PrintExpr(GetLeft(root));
     
175.            printf("%c",GetData(root));
     
176.            PrintExpr(GetRight(root));
     
177.            printf(")");
     
178.      }
     
179. }     
     
180.       
     
181. ///////////////////////////////////////////////////////
     
182. long GetValue(long str,long vaddr) //求用int str[]表示的逆波兰式的值,用地址vaddr返回
     
183. {
     
184.      int istk[5];
     
185.      int data[7];
     
186.      int index;
     
187.      int t,t1,t2;
     
188.      int i;
     
189.      memcpy(data,str,14);
     
190.      index=0;
     
191.      for(i=0;i<7;i++){
     
192.         if(data<=13&&data>0) istk[index++]=data;
     
193.         else{
     
194.            t2=istk[--index];
     
195.            t1=istk[--index];
     
196.            if(data=='+') t=t1+t2;
     
197.            else if(data=='-') t=t1-t2;
     
198.            else if(data=='*') t=t1*t2;
     
199.            else if(data=='/'&&t2){
     
200.                  if(t1%t2==0||bit) t=t1/t2;
     
201.                  else return 0;
     
202.            }
     
203.            else return 0;
     
204.            istk[index++]=t;
     
205.         }
     
206.       }
     
207.       memcpy(vaddr,istk,2);
     
208.       return 1;
     
209. }
     
210. //////////////////////////////////////////////////////
     
211. long Check24u(long address)       //用int addr[4]...
     
212. {
     
213.     int data[5];
     
214.     int hz[7];
     
215.     char vaddr[2];
     
216.     int  value;
     
217.     int k,i,k1,p;
     
218.     memcpy(data+2,address,8);
     
219.     for(i=0;i<5;i++){
     
220.        for(k1=0;k1<24;k1++){
     
221.                     hz[dindex[0]]=data[_dindex[k1][0]];
     
222.                     hz[dindex[1]]=data[_dindex[k1][1]];
     
223.                     hz[dindex[2]]=data[_dindex[k1][2]];
     
224.                     hz[dindex[3]]=data[_dindex[k1][3]];
     
225.                      for(p=0;p<64;p++){
     
226.                               hz[oindex[0]]=_oper[p*3];
     
227.                               hz[oindex[1]]=_oper[p*3+1];
     
228.                               hz[oindex[2]]=_oper[p*3+2];
     
229.                               if(GetValue(hz,vaddr+2)&&value==24){
     
230.                                       PrintExpr(CreateBN(hz,7));
     
231.                                       return 1;
     
232.                     }
     
233.                   }
     
234.                 }
     
235.               }
     
236.     return 0;
     
237. }
     
238. ////////////////////////////////////////////////////////////////////
     
239. void InitGame()
     
240. {
     
241.     int i;
     
242.     char tch;
     
243.     int xy[4][2];
     
244.     xy[0][0]=7;xy[0][1]=18;
     
245.     xy[1][0]=87;xy[1][1]=18;
     
246.     xy[2][0]=7;xy[2][1]=42;
     
247.     xy[3][0]=87;xy[3][1]=42;
     
248.     ClearScreen();
     
249.     Refresh();
     
250.     i=0;
     
251.     while(1){
     
252.       ClearScreen();
     
253.       TextOut(0,0,"********24点********",0x81);
     
254.       TextOut(10,20,"训练模式",0x81);
     
255.       TextOut(90,20,"比赛模式",0x81);
     
256.       TextOut(10,44,"游戏说明",0x81);
     
257.       TextOut(90,44,"退出游戏",0x81);
     
258.       TextOut(0,64,"********************",0x81);
     
259.       Refresh();
     
260.       Box(xy[0],xy[1],xy[0]+68,xy[1]+17,1,2);
     
261.       tch=getchar();
     
262.       if(tch==OK){
     
263.          if(i==0) Message=CHECK;
     
264.          else if(i==1) Message=PLAY;
     
265.          else if(i==2) Message=ABOUT;
     
266.          else          Message=QUIT;
     
267.          break;
     
268.       }
     
269.       else if(tch==LEFT) i=(i+3)%4;
     
270.       else if(tch==RIGHT) i=(i+1)%4;
     
271.       else if(tch==UP||tch==DOWN)    i=(i+2)%4;
     
272.    }
     
273. }
     
274. void Play()
     
275. {
     
276.      Message=MAIN;
     
277. }
     
278. void Check()
     
279. {
     
280.      char data[4][4];
     
281.      int  digi[4];
     
282.      int k;
     
283.      int i;
     
284.      char tch;
     
285.      ClearScreen();
     
286.      Refresh();
     
287.      memset(data,0,16);
     
288.      for(i=0;i<4;i++){
     
289.           digi=7;
     
290.           sprintf(data,"%d",digi);
     
291.      }
     
292.      k=0;
     
293.      while(1){
     
294.           ClearScreen();
     
295.           TextOut(40,20,data[0],0x81);
     
296.           TextOut(70,20,data[1],0x81);
     
297.           TextOut(100,20,data[2],0x81);
     
298.           TextOut(130,20,data[3],0x81);
     
299.           Refresh();
     
300.           Box(38+k*30,19,58+k*30,37,1,2);
     
301.           tch=getchar();
     
302.           if(tch==ESC){
     
303.               Message=MAIN;
     
304.               break;
     
305.           }
     
306.           else if(tch==OK){
     
307.               ClearScreen();
     
308.               Refresh();
     
309.               SetScreen(0);
     
310.               if(!Check24u(digi)){
     
311.                        Locate(2,8);
     
312.                        printf("无解!");
     
313.                        Delay(1000);
     
314.               }
     
315.               else getchar();
     
316.           }
     
317.           else if(tch==UP&&digi[k]<13){
     
318.                        digi[k]++;
     
319.                        sprintf(data[k],"%d",digi[k]);
     
320.           }
     
321.           else if(tch==DOWN&&digi[k]>1){
     
322.                        digi[k]--;
     
323.                        sprintf(data[k],"%d",digi[k]);
     
324.           }
     
325.           else if(tch==LEFT)     k=(k+3)%4;
     
326.           else if(tch==RIGHT)    k=(k+1)%4;
     
327.      }
     
328.               
     
329. }
     
330. void Quit()
     
331. {
     
332.     exit(1);
     
333. }   
     
334. void About()
     
335. {
     
336.     Message=MAIN;
     
337. }   
     
338. long Game()
     
339. {
     
340.     InitGame();
     
341.     while(1){
     
342.         if(Message==MAIN )  Game();
     
343.         if(Message==PLAY )  Play();
     
344.         if(Message==CHECK)  Check();
     
345.         if(Message==ABOUT)  About();
     
346.         if(Message==QUIT)   Quit();
     
347.     }
     
348. }
     
349.      
     
350. void main()
     
351. {
     
352.        Game();
     
353. }
     
354.            
     
355.      
     
356.      
     

复制代码