【Benchmark】HP Prime模拟器八皇后测试

diameter

根据C语言版本改写（看PRIME的语言其实应该用PASCAL的改写...）
成绩：0.018s，比nspire cx的basic快。根据@Zentauit 提供的数据，cx成绩为7.2s
代码图是三张拼起来的

1. main()
   
2. {
   
3.    int x,y,r,s,t,n,a[9];
   
4. 
   
5.    for(n=1000;n>0;--n){
   
6.      r=8;
   
7.      s=0;
   
8.      x=0;
   
9.      do{
   
10.        a[++x]=r;
    
11.        do{
    
12.          ++s;
    
13.          y=x;
    
14.          while(y>1)
    
15.            if (!(t=a[x]-a[--y]) || x-y==abs(t)){
    
16.              y=0;
    
17.              while(!--a[x])
    
18.                --x;
    
19.            }
    
20.        } while(y!=1);
    
21.      } while(x!=r);
    
22.    }
    
23.    printf("%d",s);
    
24. }
    
25. 
    

复制代码

输出结果


感谢朔雪的指正！我发现C版本的代码有问题...............外层那个循环1000次的完全可以去掉...循环1000次是为了算精确时间的，我忘记做除法了..

diameter

你妹..用chrome的时候“您尚未填写标题或内容”把我踢回来四五次...换IE后好了

朔雪X忆

那hpmuseum上的0.4秒是怎么跑出来的……
有源码的 www.hpmuseum.org/cgi-sys/cgiwrap/hpmuseum/articles.cgi?read=700

diameter

朔雪X忆 发表于 2013-7-16 17:27
那hpmuseum上的0.4秒是怎么跑出来的……
有源码的 www.hpmuseum.org/cgi-sys/cgiwrap/hpmuseum/articles.c ...

这个什么情况...我再去试试

diameter

朔雪X忆 发表于 2013-7-16 17:27
那hpmuseum上的0.4秒是怎么跑出来的……
有源码的 www.hpmuseum.org/cgi-sys/cgiwrap/hpmuseum/articles.c ...

果然我改的有问题，下面代码秒出了...
这个跟我改的除了没有外层的1000次循环几乎一样？什么情况？

1. EXPORT NQUEENS()
   
2. BEGIN
   
3.    R:=8;
   
4.    L1:=MAKELIST(0,X,1,R,1);
   
5.    S:=0;
   
6.    X:=0;
   
7.    REPEAT
   
8.      X:=X+1;
   
9.      L1(X):=R;
   
10.      REPEAT
    
11.        S:=S+1;
    
12.        Y:=X;
    
13.        WHILE Y>1 DO
    
14.          Y:=Y-1;
    
15.          T:=L1(X)-L1(Y);
    
16.          IF T==0 OR X-Y==ABS(T) THEN
    
17.            Y:=0;
    
18.            L1(X):=L1(X)-1;
    
19.            WHILE L1(X)==0 DO
    
20.              X:=X-1;
    
21.              L1(X):=L1(X)-1;
    
22.            END;
    
23.          END;
    
24.        END;
    
25.      UNTIL Y==1 END;
    
26.    UNTIL X==R END;
    
27.    S;
    
28. END;
    

复制代码

1L的代码有误，访问LIST应该用括号而不是中括号..
改完后也能很快出结果，但不是秒出

yzskyt

Ti-Basic拿来测速不算数的……

朔雪X忆

0.018s VS 0.4s
果然模拟器还是无法反应真实速度啊……

ZephRay

直径君，你电脑的CPU是啥啊（Atom？），为啥我的模拟器跑这个程序只要0.002s……
（电脑CPU：超低电压版Core2 1.6GHz）

freedom

请问在prime上的程序有吗？我想用prime真机试试看，有图片就好了

ZephRay

freedom 发表于 2013-8-16 19:11
请问在prime上的程序有吗？我想用prime真机试试看，有图片就好了

楼主位截图就是

柠檬

nbzwt 发表于 2013-8-16 20:36
楼主位截图就是

那是个什么原理啊。。。

ZephRay

柠檬 发表于 2013-8-16 20:49
那是个什么原理啊。。。

没研究过啊

柠檬

nbzwt 发表于 2013-8-16 21:48
没研究过啊

我运行了一遍上述程序，运行一次用时19.44秒，这算快还是慢？。。。

freedom

柠檬 发表于 2013-8-16 22:29
我运行了一遍上述程序，运行一次用时19.44秒，这算快还是慢？。。。

我花了21秒，应该还可以，这是1000次的结果。明天我打算发个贴

柠檬

freedom 发表于 2013-8-16 23:11
我花了21秒，应该还可以，这是1000次的结果。明天我打算发个贴

你搞懂这个程序是干嘛的吗？。。。

freedom

柠檬 发表于 2013-8-17 10:36
你搞懂这个程序是干嘛的吗？。。。

计算八皇后放棋盘的所有可能性，以此测算计算器速度

柠檬

freedom 发表于 2013-8-17 11:06
计算八皇后放棋盘的所有可能性，以此测算计算器速度

不懂，明天携机去学校给我讲讲。。。

freedom

柠檬 发表于 2013-8-17 12:16
不懂，明天携机去学校给我讲讲。。。

程序的原理我也不是很懂，研究一下吧。我只是了解了八皇后的基本原理