GMP大数运算库的一个Qt界面小程序

forcal

以下八皇后问题，测试的是函数递归调用的速度，一直想看看lua的速度，但不会写代码，谁能帮忙写一个？

1. // 在运行不同的程序时，Forcal的速度，从接近C++到只有C++速度的几十分之一。
2. // Forcal的建议是：对运行时间较长的程序，如确有必要，设计成二级函数由Forcal调用，从而获得接近C++速度的性能。
3. // Forcal与C++是无缝链接的。故C++能实现的功能，借助二级函数，Forcal完全可以实现。
4. // 但没有Forcal支持的C++程序，将无法获得高效率地实时编译计算字符串表达式的功能。
6. // 据测定，以下八皇后问题，Forcal的运行速度约为C++的1/10。
7. // 八皇后问题是一个古老而著名的问题，是回溯算法的典型例题。
8. // 该问题是19世纪著名的数学家高斯1850年提出：在8×8格的国际象棋盘上摆放8个皇后，使其不能互相攻击，即任意两个皇后都不能处于同一行、同一列或同一斜线上，问有多少种摆法。
9. // 高斯认为有76种方案。1854年在柏林的象棋杂志上不同的作者发表了40种不同的解，后来有人用图论的方法解出92种结果。
10. // 以下算法是从网上搜来的，该算法没有最终给出排列组合，仅仅给出有多少种组合，但是算法确实十分奥妙。
12. //Forcal源程序
13. i:(::sum,upperlim)= sum=0,upperlim=1,SetIntStackMax(1000);
14. i:test(row, ld, rd : pos,p : sum,upperlim)=
15. {
16. which { row != upperlim,
17. { pos = and{upperlim , not[row.or(ld).or(rd)]},
18. while{ pos,
19. p = and(pos,-pos),
20. pos = pos -p,
21. test(row+p, shl(ld+p,1), shr(rd+p,1))
22. }
23. },
24. sum++
25. }
26. };
27. i:main(:tm,n:sum,upperlim)=
28. {
29. n=15,
30. tm=sys::clock(),
31. printff{"\r\nQueens:{1,i} , ",n},
32. upperlim=shl(upperlim,n)-1,
33. test(0,0,0),
34. printff{"sum:{1,i} , {2,i} millisecond.\r\n",sum,sys::clock()-tm}
35. };
37. //完成相同功能的C++程序
38. /*
39. #include <stdio.h>
40. #include <stdlib.h>
41. #include <time.h>
43. long sum=0,upperlim=1;
45. void test(long row, long ld, long rd){
47. if (row != upperlim){
48. long pos = upperlim & ~(row | ld | rd);
49. while (pos){
50. long p = pos& -pos;
51. pos -= p;
52. test(row+p, (ld+p)<<1, (rd+p)>>1);
53. }
54. }
55. else
56. sum++;
57. }
59. int main(int argc, char *argv[])
60. {
61. time_t tm;
62. int n=15;
64. if(argc!=1)n=atoi(argv[1]);
65. tm=time(0);
66. if((n<1)||(n>32))
67. {
68. printf(" heh..I can’t calculate that.\n");
69. exit(-1);
70. }
71. printf("%d Queens\n",n);
72. upperlim=(upperlim<<n)-1;
74. test(0,0,0);
75. printf("Number of solutions is %ld, %d seconds\n", sum,(int)(time(0)-tm));
76. }
77. */

复制代码

wayne

20# forcal 你说过 “不使用MSVC运行库的静态库版本”， 是说forcal可以有linux版本吗？ lua可以与wxwidgets胶合的，叫wxlua，编写界面特别简洁，跟Tcl/Tk一样。

mathe

个人以为，让别人接受一种新语言是非常困难的，除非说它有非常非常多非常非常强大的功能。

wayne

mathe掷话 一针见血， 现在的编程语言实在是太多太多了， 新的编程语言如果没有显著的招牌特点，是很难发展下去的。

无心人

可以支持函数式编程 不过编译解释器难度很大

forcal

20# forcal 你说过 “不使用MSVC运行库的静态库版本”， 是说forcal可以有linux版本吗？ lua可以与wxwidgets胶合的，叫wxlua，编写界面特别简洁，跟Tcl/Tk一样。 wayne 发表于 2010-8-10 11:59

Forcal是用C/C++设计的，里面没有用C++复杂的高级特征，也没有使用汇编，因此有很强的移植性。如果在windows下能获得认可，再发展linux版本。 Forcal现在没有与其他任何东西胶合，如界面库、数据库等等。 但Forcal是一个dll，可以被任何可加载dll的程序使用。从计算简单的数学表达式到构建复杂的系统，Forcal都可以提供支持。所有的Forcal扩展库都是根据核心库Forcal32w.dll的输出函数设计的。

forcal

个人以为，让别人接受一种新语言是非常困难的，除非说它有非常非常多非常非常强大的功能。 mathe 发表于 2010-8-10 12:02

非常赞同这个观点，呵呵。 在某些方面，Mathematica 和Maple 提供了比matlab更好的实现和功能，但一般人遇到要解决的问题，多数还是选matlab，尽管Mathematica 和Maple 会做得更好。

无心人

楼上，因为这两个都太数学化了

wayne

27# forcal 提及MATLAB，我忍不住要说几句， 大学里面的什么自动化，机械电子，甚至经管，数学系的教科书都动不动就使用 MATLAB，还有计算机系根本就没怎么动及linux操作系统， 我甚是不解，真不知道搞大学教育的那些爷们是怎么吃这口教育饭的

wayne

我看过不少国外影印版的英文教科书，工科方面的，就是自动控制，数字信号处理，图像处理什么的，也是大谈MATLAB，我想，MATLAB在中国教育界的盛行 大概就是中国教育制度跟在西方屁股后面，亦步亦趋的结果， 西化就西化呗，可三十年来就没怎么换过发型~~