8-Queens Benchmark
06-30-2016, 08:14 PM (This post was last modified: 06-30-2016 08:17 PM by xerxes.)
Post: #9
 xerxes Member Posts: 139 Joined: Jun 2014
RE: 8-Queens Benchmark
Hello Paul,
I would be grateful to you, if you can test the Snap BASIC successfully. As far as I know, Snap
BASIC is programmed in Snap Forth. If so, I expect a slower result compared to the C64.
This is the BASIC version of the benchmark program:
Code:
  10  CLEAR:DEFINT A-Z         (DEFINT used if faster)   20  R=8                      (R>=1)   30  REM DIM A(R)             (DIM used if necessary)   40  IF X=R THEN 180   50  X=X+1   60  A(X)=R   70  S=S+1   80  Y=X   90  Y=Y-1  100  IF Y=0 THEN 40  110  T=A(X)-A(Y)  120  IF T=0 THEN 140  130  IF X-Y<>ABS(T) THEN 90  140  A(X)=A(X)-1  150  IF A(X)<>0 THEN 70       (<>0 omitted if possible)  160  X=X-1  170  IF X<>0 THEN 140         (<>0 omitted if possible)  180  PRINT S  >RUN  >876 (Nodes evaluated)  >_

Calculator Benchmark
 « Next Oldest | Next Newest »

 Messages In This Thread 8-Queens Benchmark - Hlib - 05-23-2016, 06:08 PM RE: 8-Queens Benchmark - xerxes - 05-24-2016, 02:28 PM RE: 8-Queens Benchmark - Hlib - 05-27-2016, 08:14 PM RE: 8-Queens Benchmark - Hlib - 06-25-2016, 06:39 PM RE: 8-Queens Benchmark - xerxes - 06-26-2016, 06:47 PM RE: 8-Queens Benchmark - mtern - 06-29-2016, 11:41 AM RE: 8-Queens Benchmark - xerxes - 06-30-2016, 12:04 PM RE: 8-Queens Benchmark - Paul Berger (Canada) - 06-30-2016, 03:24 PM RE: 8-Queens Benchmark - xerxes - 06-30-2016 08:14 PM RE: 8-Queens Benchmark - Paul Berger (Canada) - 07-02-2016, 02:24 AM RE: 8-Queens Benchmark - Accutron - 07-03-2016, 04:22 PM RE: 8-Queens Benchmark - Paul Berger (Canada) - 07-03-2016, 06:11 PM RE: 8-Queens Benchmark - Accutron - 07-04-2016, 02:10 AM RE: 8-Queens Benchmark - Paul Berger (Canada) - 07-04-2016, 04:43 AM RE: 8-Queens Benchmark - xerxes - 07-02-2016, 06:39 PM RE: 8-Queens Benchmark - Paul Berger (Canada) - 07-02-2016, 10:08 PM RE: 8-Queens Benchmark - xerxes - 07-03-2016, 09:56 AM RE: 8-Queens Benchmark - Paul Berger (Canada) - 07-10-2016, 01:15 AM RE: 8-Queens Benchmark - Accutron - 07-10-2016, 03:21 AM RE: 8-Queens Benchmark - Egan Ford - 07-10-2016, 06:03 PM RE: 8-Queens Benchmark - Accutron - 07-10-2016, 06:45 PM RE: 8-Queens Benchmark - Paul Berger (Canada) - 07-10-2016, 05:09 PM RE: 8-Queens Benchmark - Accutron - 07-10-2016, 07:19 PM RE: 8-Queens Benchmark - xerxes - 07-12-2016, 10:44 PM RE: 8-Queens Benchmark - Accutron - 07-12-2016, 10:58 PM RE: 8-Queens Benchmark - xerxes - 07-13-2016, 10:46 AM RE: 8-Queens Benchmark - Accutron - 07-13-2016, 02:01 PM RE: 8-Queens Benchmark - Jurgen Keller - 01-06-2017, 06:31 PM RE: 8-Queens Benchmark - Paul Berger (Canada) - 01-03-2017, 02:53 PM RE: 8-Queens Benchmark - xerxes - 01-06-2017, 02:23 PM RE: 8-Queens Benchmark - rprosperi - 01-06-2017, 04:00 PM RE: 8-Queens Benchmark - xerxes - 01-07-2017, 06:56 PM RE: 8-Queens Benchmark - Guenter Schink - 11-14-2021, 06:52 PM RE: 8-Queens Benchmark - xerxes - 11-15-2021, 11:37 PM

User(s) browsing this thread: 1 Guest(s)