怎么能提搞执行效率

killunix

写了个茶馆对诗的机器人，发现老比别人慢，大家看下，有没有更好的办法.谢谢。
poem是CMUD数据库的View和column名称

^茶博士提笔在墙上写道：(*)

1. poem=%1
   
2. #math words %len(@poem)
   
3. 
   
4. word1=%left(@poem,2)
   
5. word2=%right(%left(@poem,4),2)
   
6. word3=%right(%left(@poem,6),4)
   
7. 
   
8. array1=%find(@word1,poem,poem)
   
9. array2=%find(@word2,poem,poem)
   
10. array3=%find(@word3,poem,poem)
    
11. i=%numitems(@array1,poem,poem)
    
12. j=%numitems(@array2,poem,poem)
    
13. k=%numitems(@array3,poem,poem)
    
14. a=1
    
15. #while (@a<=@i)
    
16. {
    
17. #variable b 1
    
18. #while (@b<=@j)
    
19. {
    
20. #if (%item(@array1,@a)=%item(@array2,@b))
    
21. {
    
22. //#sh A: @a %item(@array1,@a) B:@b %item(@array2,@b)
    
23. temp=%additem(%item(@array1,@a),@temp)
    
24. }
    
25. #math b @b+1
    
26. }
    
27. #math a @a+1;
    
28. }
    
29. a=1
    
30. #while (@a<=@i)
    
31. {
    
32. #variable b 1
    
33. #while (@b<=@k)
    
34. {
    
35. #if (%item(@temp,@a)=%item(@array3,@b))
    
36. {
    
37. //#sh A: @a %item(@temp,@a) B:@b %item(@array3,@b)
    
38. temp2=%additem(%item(@temp,@a),@temp2)
    
39. }
    
40. #math b @b+1
    
41. }
    
42. #math a @a+1;
    
43. }
    
44. #variable answer %db(@temp2,poem)
    
45. #if (%len(@answer)<=@words)
    
46. {
    
47. answer @answer
    
48. } {
    
49. #math a %len(@answer)/2;
    
50. answer2=%left(@answer,@a)
    
51. answer3=%right(@answer,@a)
    
52. #if (%pos(@word1,@answer2)>0) {answer @answer2} {answer @answer3}
    
53. }
    
54. temp=""
    
55. temp2=""

复制代码

[ 本帖最后由 killunix 于 2009-10-21 12:11 AM 编辑 ]

sure

zmud的执行怎么会快过mush？
0 0 0

killunix

难道就只有是软件上的差别了吗？
实在不喜欢mush的界面

[ 本帖最后由 killunix 于 2009-10-21 12:10 AM 编辑 ]

wumian

mush的界面可以调的跟zmud差不多啊 包括字体颜色什么的 黑底蓝字 再把宏建调成一样 很熟悉的感觉

killunix

主要是没地图功能，对我来说就像瞎了一样

killunix

用COM连接数据库快多了，唉，笨那