8-Queens Benchmark
06-25-2016, 06:39 PM
Post: #4
 Hlib Member Posts: 242 Joined: Jan 2015
RE: 8-Queens Benchmark
I decided to fill absence of the program for SRP-325G (HP-9G) for Calculator Benchmark. In algorithm with Goto-Lbl it is impossible to improve anything. Here I tried to correct defect of the calculator connected with buggy Goto.
Code:
 R=8 ; S=0 ; FOR ( X=1 ; X≤R ; X++ )   { A[X]=R ; S++ ;     FOR ( Y=X-1 ; Y≥1 ; Y-- )       { T=A[X]-A[Y] ;         IF ( T(X-Y-ABS(T))==0 )         THEN { FOR ( U=X ; U≥1 ; U-- )                       { IF ( --A[U]≥1 )                       THEN { U=0 ; S++ ; Y=X } ;                        ELSE { X-- }                     } ;             IF ( X==0 ) THEN { X=R ; Y=1 }         }     } } ; PRINT S ; END
S=876, time(for SRP-325G)=10:40
a8 b4 c1 d3 e6 f2 g7 h5
 « 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)