计算24点的脚本

hniu

今天看到清茶有人问24点的问题，随手写了个程序，算法虽然不优，但执行速度还是可以的。以后不用手算了，呵呵。

感谢r2007对组合的补充。

1. 
   
2. #!/bin/sh
   
3. 
   
4. if [ $# -ne 4 ]
   
5. then
   
6.    echo "Usage: $(basename $0) d1 d2 d3 d4"
   
7.    exit 2
   
8. fi
   
9. 
   
10. awk -v a=$1 -v b=$2 -v c=$3 -v d=$4 'BEGIN{
    
11.      myopstr[0]="+";
    
12.      myopstr[1]="-";
    
13.      myopstr[2]="*";
    
14.      myopstr[3]="/";
    
15. 
    
16.      shu[0]=a; shu[1]=b; shu[2]=c; shu[3]=d;
    
17.            
    
18. 
    
19.      for(i=0;i<4;i++)
    
20.        for(j=0;j<4;j++)
    
21.          for(k=0;k<4;k++)
    
22.          {
    
23.            if(i==j || j==k || i==k )
    
24.              continue;
    
25.            else
    
26.            {
    
27.              shu[i]=a; shu[j]=b; shu[k]=c; shu[6-i-j-k]=d;
    
28.              for(one=0;one<4;one++)
    
29.                for(two=0;two<4;two++)
    
30.                  for(three=0;three<4;three++)
    
31.                  {
    
32.                     print shu[0]" "myopstr[one]" "shu[1]" "myopstr[two]" "shu[2]" "myopstr[three]" "shu[3];
    
33.                     print "("shu[0]" "myopstr[one]" "shu[1]") "myopstr[two]" "shu[2]" "myopstr[three]" "shu[3];
    
34.                     print shu[0]" "myopstr[one]" ("shu[1]" "myopstr[two]" "shu[2]") "myopstr[three]" "shu[3];
    
35.                     print shu[0]" "myopstr[one]" "shu[1]" "myopstr[two]" ("shu[2]" "myopstr[three]" "shu[3]")";
    
36.                     print shu[0]" "myopstr[one]" ("shu[1]" "myopstr[two]" "shu[2]" "myopstr[three]" "shu[3]")";
    
37.                     print shu[0]" "myopstr[one]" (("shu[1]" "myopstr[two]" "shu[2]") "myopstr[three]" "shu[3]")";
    
38.                     print shu[0]" "myopstr[one]" ("shu[1]" "myopstr[two]" ("shu[2]" "myopstr[three]" "shu[3]"))";
    
39.                     print "("shu[0]" "myopstr[one]" "shu[1]" "myopstr[two]" "shu[2]") "myopstr[three]" "shu[3];
    
40.                     print "(("shu[0]" "myopstr[one]" "shu[1]") "myopstr[two]" "shu[2]") "myopstr[three]" "shu[3];
    
41.                     print "("shu[0]" "myopstr[one]" ("shu[1]" "myopstr[two]" "shu[2]")) "myopstr[three]" "shu[3];
    
42.                     print "("shu[0]" "myopstr[one]" "shu[1]") "myopstr[two]" ("shu[2]" "myopstr[three]" "shu[3]")";
    
43.                  }
    
44.            }
    
45.          }
    
46.      exit;}'  | sed 'h;s/^/"/;s/$/ = "/;G;' | bc -l 2> /dev/null | sed -n '/ 23.9999/{s/ 23.9999.*$/ 24/; p;}; / 24.0000/{s/ 24.0000.*/24/;p;}; / 24$/p; ' | sort -u
    
47. 
    
48. 
    
49. 
    
50. 
    

复制代码

[ 本帖最后由 hniu 于 2008-8-13 19:08 编辑 ]

hniu

谢谢liaosnet

ly5066113

原帖由 hniu 于 2008-8-12 22:10 发表
今天看到清茶有人问24点的问题，随手写了个程序，算法虽然不优，但执行速度还是可以的。以后不用手算了，呵呵。


#!/bin/sh

if [ $# -ne 4 ]
then
   echo "Usage: $(basename $0) d1 d2 d3 d4"
   r ...

测试了下，可以用，不过开头的这里：
if [ $# -ne 4 ]
then
   echo "Usage: $(basename $0) d1 d2 d3 d4"
   return 2
fi

return 应该改成 exit

hniu

blackold

高手高手，随手就能写出这么好的程序，佩服！
俺还不知到什么时候才能写这样的东东。

[ 本帖最后由 blackold 于 2008-8-13 09:38 编辑 ]

hniu

shaneqi

高手，学习一下。

gnufoo

不太懂, 能否解释一下呢

hniu

y8189025

学习中,不错