有没有人想过怎么用计算机来实现24点

hzzh

这个题目不容易呢，好多高手都出马了，不错不错，不佩服的不行。 9 p/ N$ J/ l t来了点好奇心，对游侠无极限 的程序运行了一下 $ R$ O" @4 l" s+ C- z0 D$ J1 j. e" ~算法还没有看懂，为什么结果会都是重复的？ & t( e9 P- w1 J9 ] h2 }“ 请输入4个数（用回车或者空格分开）：5 5 8 8 5 Y, W' y" J8 E5*5-8/8 5*5-8/8 5*5-8/8 5*5-8/8 , W7 I3 B0 u. E/ F* Q总计4个式子 “ 另外程序有一点点小错误： ( y5 _6 P- J. c: H” % S0 `5 X1 Z$ y- A' xint EnumFormula(int *FormulaNum,int num,int sum) " ]( b' `8 ~! `) H- S P- d5 y{ int result = 0; ) E# s7 b" l9 J$ C" m/ L int *NumSym = (int*)calloc(num+4,sizeof(int)); //操作数运算符组成的可枚举组 % I' C6 }/ M- U: M& a7 F6 ]; r int *Formula = (int*)calloc(num*2-1,sizeof(int)); //波兰表达式储存空间 * D) U' |4 m& Q4 U, O) [7 r int *temp = (int*)calloc(num*2,sizeof(int)); //波兰表达式的代号表示空间 int i,j; - V* v& g: r6 i% j) z J+ m; _ for(i=0;i = FormulaNum; //载入进行穷举的操作数 for(j=0;j<5;j++) NumSym[i+j] = -j-1; //载入进行穷举的运算符号 “ 前面定义： int *NumSym = (int*)calloc(num+4,sizeof(int)); //操作数运算符组成的可枚举组 后来二句： & J4 R- f7 I# ^+ B for(i=0;i = FormulaNum; //载入进行穷举的操作数 for(j=0;j<5;j++) NumSym[i+j] = -j-1; //载入进行穷举的运算符号 当num=4时，经过第一个for，i=4，第二个for中 NumSym[i+j]， i+j=8，NumSym越界了 2 `9 C I' N. ]2 W, ?

唐明

‘最后一次发代码 5 f0 L" S- X- v x9 C ( \/ ^* d# V. h% c% k+ k- b7 h ) s7 E* A7 {/ _4 g+ u ) X9 M; N- @% g _# v

6 K) X1 [" u' Z: o: Q0 ?% U

, c ]; c4 r+ M I m g0 d9 W+ ]* m

6 u$ ^ O$ V& a* P- S8 b* P' c

2 K, t/ m( {" ?3 g3 S& [

[此贴子已经被作者于2004-5-8 18:20:59编辑过]

- _+ } I1 }) ^+ J' s7 @

yzhlinux

佩服佩服，不佩服不行了，
代码越来越工整，注释越来越详细实用，
6 g( |2 j' Q* l* i& j9 U# q真是长江后浪推前浪啊，前浪死在沙滩上

游侠无极限

以下是引用hzzh在2004-5-8 17:31:09的发言： 这个题目不容易呢，好多高手都出马了，不错不错，不佩服的不行。 来了点好奇心，对游侠无极限 的程序运行了一下 算法还没有看懂，为什么结果会都是重复的？ “ 请输入4个数（用回车或者空格分开）：5 5 8 8 5*5-8/8 0 _2 u2 B& p2 }& B" f; [ 5*5-8/8 3 }/ C! r& \0 q' S% ^* y1 w0 m 5*5-8/8 2 |2 a2 A6 a2 E4 L- X( [ 5*5-8/8 + {7 N4 d Q$ ^6 U% q 总计4个式子 : K; M) C1 ~7 G, r4 u" S “ 9 S! L6 Q3 m6 h( s t2 r; O 另外程序有一点点小错误： 9 }% P7 `/ i( [! D+ c ” int EnumFormula(int *FormulaNum,int num,int sum) / K) k3 p5 ]1 R { int result = 0; int *NumSym = (int*)calloc(num+4,sizeof(int)); //操作数运算符组成的可枚举组 6 H s# N, d4 c( j4 { int *Formula = (int*)calloc(num*2-1,sizeof(int)); //波兰表达式储存空间 0 g0 P: | d6 T! \0 i int *temp = (int*)calloc(num*2,sizeof(int)); //波兰表达式的代号表示空间 int i,j; for(i=0;i = FormulaNum; //载入进行穷举的操作数 : _; ~" ?, w0 k) I4 e2 h4 | for(j=0;j<5;j++) NumSym[i+j] = -j-1; //载入进行穷举的运算符号 & K; l; _' c5 Z x( l3 f “ 前面定义： int *NumSym = (int*)calloc(num+4,sizeof(int)); //操作数运算符组成的可枚举组 6 j! ~/ e/ ]/ m 后来二句： for(i=0;i = FormulaNum; //载入进行穷举的操作数 ) G$ X! Y) u, l% v( V+ X4 v for(j=0;j<5;j++) NumSym[i+j] = -j-1; //载入进行穷举的运算符号 7 J* L& k( |3 Z6 Y3 N: ]) j! f 当num=4时，经过第一个for，i=4，第二个for中 NumSym[i+j]， i+j=8，NumSym越界了 3 |6 ~1 R( {. n" }( ~4 s& E

) s* T6 p5 v% [4 @$ |* F$ Y& A7 O 真是太感谢了，想必释放错误是由于这个越界啊 % t4 X$ _; J1 o# w至于重复，其实是这样的： 0 d% v. h7 K5 m c* P3 J你输入的 5 5 8 8，在穷举中，第一个5和第二个5不等价，同样第三个8和第四个8不等价，所以结果是 5(1)*5(2)-8(3)/8(4) 5(2)*5(1)-8(3)/8(4) 5(1)*5(2)-8(4)/8(3) 8 {& w4 V) n; M) r* a5 A5(2)*5(1)-8(4)/8(3) & F2 w1 G# W- }* i

唐明

给游侠无极限 / a U% F. N6 L6 T: f; c% G2 m定义 & B$ v: A9 A u4 _: `3 l 操作数: v1,v2,v3,v4 就是4个数字 运算次序:px,p1,p2,p3,px 计算的顺序，比如9*9*9*9是6,1,2,3,6 || 5*(8+9)/3是6,3,1,2,6 等等 4 ~1 P, D) S( p( ]/ D# U0 o 运算x,o1,o2,o3,ox 进行的计算 " L5 D- ^/ z8 r0 O$ C8 ?操作数串: s1,s2,s3,s4 5 f+ ?. \( H% G4 Z' J6 ?; c9 \3 Q& N5 m 特征马: v1-o1-v2-v12-o2-v3-v123-o3-v4 这是按照p1,p2,p3的次序且v1>v2,v12>v3,v123>v4 6 R, T( V' t5 N% z' d: t) g6 o 次序px=6 1 z2 p7 c9 m) q; |运算ox="=" ( B( J" A' f. i5 W1)次序为 : "()" > "/" > "*" > "-" > "+" 相应级别: 5 4 3 1 0 6 h! a* @+ a0 w( d2)检查前面 / 后面的运算，如果与现在将要进行的相同则继续检查前"面"生成的特征马的"后"面一个操作数/"后"面生成的特征马的"前"面一个操作数，"前"面生成的特征马的"后"面一个操作数>现在的"后"操作数 / "后"面生成的特征马的"前"面一个操作数>现在的"前"操作数，则跳出运算 （5月13日注：这规则是在前后都有计算过的运算时） 3)"+"/"*"作运算时"前"面的运算级别与现在将要进行的"相"同则"前"面的运算的"后"操作数必须是>=现在将要进行运算的"后"操作数,如果不符合则跳出运算 2 J+ \- |( v7 J! l9 I3 i4 I4.1)"/" / "*"检查前/后面的运算，小雨当前运算级别超过1，则在相应操作数串上+（） 4.2)"/"检查"后"面的运算级别<=4，则在相应操作数串上+（） 如果认为/(a/b)=/b*a /(a*b)=/a/b 则"后"面的运算级别=4或=3跳出运算 1 I$ t( p0 h2 Y) J# w4.3)"*"检查"后"面的运算级别<3或=4，则在相应操作数串上+（） 4.4)"-"检查"后"面的运算级别<=1，则在相应操作数串上+（） 如果认为-(a-b)=-b+a -(a+b)=-b-a 则"后"面的运算级别=1或=0跳出运算 5)第2,3次运算结束时这次运算的运算代替次序在他之前的运算的运算 1 q7 o6 l% r" @- W6)王成一个表达时的计算时应当分别保存特征马和最总的操作数串(完整的表达式串)在一个容器之中，已经存在相同的特征马则应该放弃现在的特征马和最总的操作数串(完整的表达式串) 7)如果认为*1和/1是相同的则两者只能选一，（禁止(当...时跳出运算)*/1或/1中的一个）或（*/1或/1中的一个生成特征妈时转换为对方） 8.1)为了避免6+3+2和6+（3+2）6+3-2和6+（3-2）...重复，"+"后面有"+"/"-"跳出运算 8.2)为了避免6*3*2和6*（3*2）6*3/2和6*（3/2）...重复，"*"后面有"*" / "/"跳出运算 ! z# H. U: P4 r一个特征马的存储形式:char[n,7]={{v1,o1,v2,o2,v3,o3,v4},...} 9 m9 H, F" b8 R! v4 z4 Q% S4 Y ; F/ C# ^) e$ ^$ {! U. d1 I8 G这里所有跳出运算都可以通过改变前后的特征马而不跳出运算，但是那样很麻烦 7 z9 a6 r9 _+ x+ B. P( A5 t: _这个产生特真马的前提就是我的代码（规则是比较乱的）的前提，这里只是描述的相对清楚，特征马就是我的代码中允许的表达时的计算过程，所以我的这个铁自可能是多余的 ( L: I i; a: O' u0 _**************************************** ! X7 ^9 Y4 G! n4 Q4 H$ @例子1: 次序左右的6 运算左右的= ; T4 o- q4 f3 w省略了 ( B( l1 K. c$ G, c- [: C) U. y**************************************** ; o. n& F% L, P0 D( ^+ r 操作数: v1,v2,v3,v4 运算次序: p1,p2,p3 8 S. A8 o% L0 S; j 运算: o1,o2,o3 9 [5 P' H! O8 p; E& O操作数串: v1,v2,v3,v4 8 x) r+ z- o5 [! c2 w" e, l0 B 下面是计算 原操作数: v1,v2,v3,v4 一次运算: v12 ,v3,v4 运算次序: px,p2,p3 + e+ s8 I/ ?0 W9 F6 b7 [! ^ 运算: ox,o2,o3 - |, K+ C" \# M z+ T6 O# q操作数串: v1p1v2,v3,v4,v4 . Y' r# x9 {# g. j( ?+ i二次运算: v123,v4 + @; T3 H9 H. a4 [运算次序: px,px,p3 " [) N+ Y( {7 r4 _2 z 运算: ox,ox,o3 操作数串: v1p1v2p2v3,v4,v4,v4 5 s/ w, y' s- ~7 Z6 v% `' T 三次运算: v1234 , g# k2 }. o- l {, _" G$ B运算次序: px,px,px 5 e5 R! _9 J& O' G+ X; ^. W& q5 ~ 运算: ox,ox,ox 2 D8 e! R! Q2 j* {8 N! L8 @操作数串: v1p1v2p2v3p3v4,v4,v4,v4 下面是特征马 v1-o1-v2-v12-o2-v3-v123-o3-v4 这是按照p1,p2,p3的次序且v1>v2,v12>v3,v123>v4 9 W: H8 g1 C, s P, v; ] - i. I9 Q! M+ U* b6 u+ W6 x最总的操作数串(完整的表达式串) v1p1v2p2v3p3v4 **************************************** : ^) J9 I* s+ U4 x6 ]6 h) Q- r + {" I' g) N. }+ r- O. o$ C**************************************** $ Y' m0 o$ F" T, h8 V例子1的实例: * Y7 w9 x1 y$ x' V+ W次序左右的6 $ W3 V4 M9 r. t8 Y# a: f/ n3 S, p2 u运算左右的= 省略了 0 J& Z U% w7 B+ b: {: N; _**************************************** 7 P+ S% O: ]9 O3 L4 ~ 操作数: 2 ,2 ,3 ,2 & G/ C/ [# C' r$ R0 I运算次序: 1 ,2 ,3 运算: + ,* ,* 操作数串: 2 ,2 ,2 ,2 9 x' c+ r: j4 k5 ]就是: (2+2)*3*2 + f; s2 ?+ p' F! a 5 \4 d9 U* _2 _6 |& P6 v$ z4 r下面是计算 原操作数: 2 ,2 ,3 ,2 一次运算: 4 ,3 ,2 D* M m0 a" |: g9 ]6 t运算次序: 6 ,2 ,3 运算: + ,* ,* 生成2-+-2 操作数串: 2+2,3,2,2 8 t) U- @; ^- o1 {. d+ U二次运算: 12,2 运算次序: 6 ,6 ,3 运算: * ,* ,* 生成4-*-3 操作数串: (2+2)*3,2,22 加上括号 H6 k o7 t; o, J 三次运算: 24 运算次序: 6 ,6 ,6 运算: * ,* ,* 生成12-*-2 操作数串: (2+2)*3*2,2,2,2 下面是特征马 * r6 P8 T% X/ Q/ d2 W2-+-2-4-*-3-12-*-2 按照1，2，3(就是次序)的顺序 + s! M7 K2 T- `+ E 最总的操作数串(完整的表达式串) 0 h5 F, Q# q/ I: G) ^(2+2)*3*2 9 x+ W7 }$ B+ K+ R W**************************************** 9 O3 u, s. A V3 E& z. e 再比如2*(2+2)*3 特征马 2-+-2-?-?-?-?-?-? 后面跳出了计算，这个特征马/最总的操作数串(完整的表达式串)应当放弃 9 u% r3 Y) o- |1 g和(2+2)*3*2不会重复 + z, r! c% t5 p9 B 再比如6,6,6,6 可以生成的特征马 6-+-6-12-+-6-18-+-6 + w d0 N3 U. @+ P8 {6-*-6-36---6-30---6 再比如12,12,12,12 可以生成的特征马 12-+-12-24-/-12-2-*-12 / N; o6 ?1 t O12-/-12-1-*-12-12-+-12 12-+-12-12-/-12-1-*-24 ( e* C1 X; [# j- O4 |) l # E0 x/ V3 I! a; v 8 u$ `" U$ L9 \: |0 i9 |% P . T/ I3 e6 L( p : ]. k) I1 r8 l% A2 ?1 \ ! B' o2 s/ g; L9 [* k- [$ u 5 H5 ~& B* a0 o# j : ^' d6 p: _5 o 9 a7 n1 x, P0 F' F0 X4 l1 D- Q1 d

[此贴子已经被作者于2004-5-12 19:06:09编辑过]

游侠无极限

不太明白，比如
1*2*3*4
2*4*3*1
2*1*3*4
4 {5 [1 ?9 M& \9 H) V' i  d2 t  {2/(1/(3*4))

+ @% a$ s, u' o% @) W" e' x的特征码是多少呢

唐明

2)检查前面 / 后面的运算，如果与现在将要进行的相同则继续检查前"面"生成的特征马的"后"面一个操作数/"后"面生成的特征马的"前"面一个操作数，"前"面生成的特征马的"后"面一个操作数>现在的"后"操作数 / "后"面生成的特征马的"前"面一个操作数>现在的"前"操作数，则跳出运算 （5月13日注：这规则是在前后都有计算过的运算时） ↓修改 ↓ (5.13.2004修改) ; R# }' M. R. ~# }8 M# f$ y* t/ N3)"+"/"*"作运算时"前"面的运算级别与现在将要进行的"相"同则"前"面的运算的"后"操作数必须是>=现在将要进行运算的"后"操作数,如果不符合则跳出运算 4.2)"/"检查"后"面的运算级别<=4，则在相应操作数串上+（） 如果认为/(a/b)=/b*a /(a*b)=/a/b 则"后"面的运算级别=4或=3跳出运算 （我认为是相等的） * s r( z' Z' v3 e) R" G; D& u# T , t% Y8 w2 O4 ]8.2)为了避免6*3*2和6*（3*2）6*3/2和6*（3/2）...重复，"*"后面有"*" / "/"跳出运算 : u z [4 n0 J) N0 n* M% U 3 {# ^9 x& n5 g6 j4 p更见规则，你给出的狮子只有4*3*2*1是合法的，其他狮子舞发生成特征马 4*3*2*1 次序：1,2, 3 ' | z* j) @$ k( Y6 s$ a$ p运算 *(3) ,*(3),*(3) 括号内是级别 4*3=12 -> 4-3-3 结果12 12*2=24 -> 12-*-2 结果24 [: Z$ @4 e: `% K* j1 C0 C24*1=24 -> 24*1 结果24 / A: X0 D% E* ^6 G ↓ ↓ ↓ 都是级别 最总特征马4-3-3-12-3-2-24-3-1 - O. o }3 B& P8 R6 V 4*3 12*2 42*1 , n, n) T. l2 t" P 其他可以得到的特征吗（还有其他我原来里出的规则） " k! j5 u1 E7 G9 Q3 A7 x4-0-2-3-0-1-6-3-4 （4+2）*（3+1） 3-0-2-5-0-1-6-3-4 (3+2+1)*4

游侠无极限

我想了一个特征码：
取每个操作数所进行的运算符
即：
. D+ Z2 W4 u/ d9 U5 H, M1*2*3*4
各个操作数进行的运算分别为：
1 *
2 *
7 U- j7 j( o. `3 *
6 \5 f+ z% X1 \4 *
+ y6 n  C# X6 f5 @特征码为****
(1+3)*(2+4)为
1+
3+
2+
4+
, A1 l* p7 T5 n8 @4 g7 T为++++
" C8 D" Y: A& z( p+ p) a7 r2/(1/(3*4))
2/
1/
3*
  e* [4 L% \- u$ i  ~- r4*
为**//
& ]3 D+ A) V  {. ], v, F隐含特征码为四个操作数和运算结果，因为相同，所以除去
9 @6 e  P% b2 j8 u9 Z目的是消除因加法和乘法交换率引起的重复
2 `5 s" b5 L- j! `不知道有没有漏掉的，或者误除的

: o. e- v$ T0 t0 g2 j

[此贴子已经被作者于2004-5-13 20:43:35编辑过]

( n) H0 ]: O' P8 R. X