红桃四

[fireseed]

管理员别删，这是我用来接反馈的贴子，原贴是“二十四点纸牌游戏的原代码，放出来啦！！”

[xjl1980_81]

[e-mail]
谢谢了

[fireseed]

请不要在这里索取代码！请看原贴!!!!!!!!!!!!!!!!

[lmx7707]

收到了，怎么玩阿？

[fireseed]

你随意输入四个1-9连续的数字，它会给出算法！！

[involute]

Where is the code?

[seesi]

没看到什么内容
http://seesi.51.net

[8080]

谢谢

[e-mail]

[delphihero]

[e-mail] thanks

[leoleevi]

什么红桃四啊？

难道是西安的那种红桃四的打发么？
我们自己做过一个红桃四的，有兴趣可以去
www.vrbrothers.com/cn/works看看

[springleo]

先谢谢你的原码，但没注解有点难懂
以下是今天本人写的一个东东，请各位指点
此程序只针对24点，并不具有可扩展性。
对算法作了－些简化，不知会不会出现例外？

#include <stdio.h>
double Caculate(int op,double n1,double n2)
{
switch (op)
{
case 0:
return n1+n2;
break;
case 1:
return n1-n2;
break;
case 2:
return n2-n1;
break;
case 3:
return n1*n2;
break;
case 4:
if (n2!=0)
return n1/n2;
else
return 0;
break;
case 5:
if(n1!=0)
return n2/n1;
else
return 0;
break;
default:
return 0;
}
}

void main()
{
int nInput[4];
int i;
int a,b,c,d;
int op1,op2,op3;
char strop[]="+-_*/\\";
int num[]={1234,1243,1324,1342,1423,1432,
2143,2134,2341,2314,2413,2431,
3124,3142,3241,3214,3412,3421,
4123,4132,4213,4231,4321,4312};
while(1)
{
for(i=0;i<4;i++)
{
printf("input No%d:",i+1);
scanf("%d",&nInput[i]);
if(nInput[i]>9||nInput[i]<1)
return;
}
for(i=0;i<24;i++)
{
a=(nInput[num[i]/1000-1]);
b=(nInput[(num[i]%1000)/100-1]);
c=(nInput[(num[i]%100)/10-1]);
d=(nInput[(num[i]%10)-1]);
for (op1=0;op1<6;op1++)
for(op2=0;op2<6;op2++)
for(op3=0;op3<6;op3++)
{
double value;
value=Caculate(op1,(double)a,
Caculate(op2,(double)b,
Caculate(op3,(double)c,(double)d)));
if(value-24.0<0.0001&&
value-24.0>-0.0001)
{
printf("%1d%c(%1d%c(%1d%c%1d))\n", a,strop[op1],b,strop[op2],c,strop[op3],d);
goto NEXT;
}
value=Caculate(op1,Caculate(op2,(double)a,(double)),
Caculate(op3,(double)c,(double)d));
if(value-24.0<0.0001&&
value-24.0>-0.0001)
{
printf("(%1d%c%1d)%c(%1d%c%1d))\n",
a,strop[op2],b,strop[op1],c,strop[op3],d);
goto NEXT;

}
}
}
printf("Cannot find any way!\n");
NEXT:
printf("Notice: a_b means b-a, a\\b means b/a\n");

}
}

[springleo]

对上帖的注解， a b c d可取四数的全排列，op有六种可能
///////// 1: op1 2: op1
///////// / \ / \
//////// a op2 op2 op3
//////// /\ /\ /\
//////// b op3 a b c d
//////// /\
//////// c d
////////