The Museum of HP Calculators

HP Forum Archive 17

[ Return to Index | Top of Index ]

More N-Queens benchmark results
Message #1 Posted by Egan Ford on 26 July 2007, 7:31 p.m.

I stumbled across this http://www.hpmuseum.org/cgi-sys/cgiwrap/hpmuseum/articles.cgi?read=700 from a recent post and thought I'd contribute a few more results. I am unsure who tracks/updates this list.

71B/FORTH (about 3x faster than 71B/BASIC, faster than 50g UserRPL):

Output:

S=876 IN 46.27 SEC

Code:

: NQUEENSF ;

FVARIABLE TIMER

: STARTTIMER CLOCK TIMER STO ; : DISPLAYTIMER CLOCK TIMER RCL F- STD F. ." SEC" ;

8 CONSTANT RR VARIABLE SS VARIABLE XX VARIABLE YY CREATE AA RR 1 + ALLOT

: RCLAA @ 2 * AA + C@ ; : STOAA @ 2 * AA + C! ;

: NQCORE 0 SS ! 0 XX ! BEGIN 1 XX +! RR XX STOAA BEGIN 1 SS +! XX @ YY ! BEGIN YY @ 1 > WHILE -1 YY +! XX RCLAA YY RCLAA - DUP 0 = SWAP ABS XX @ YY @ - = OR IF 0 YY ! BEGIN XX RCLAA 1 - DUP XX STOAA 0 = WHILE -1 XX +! REPEAT THEN REPEAT YY @ 1 = UNTIL RR XX @ = UNTIL ;

: NQUEENS STARTTIMER NQCORE ." S=" SS @ . ." IN " DISPLAYTIMER CR ;

71B/RPN (HP41 emulator, about 4x faster than 41CX):

Output:

S=876 IN 269.87 SEC

Code:

LBL "NQ41"
FIX 0
CLRG
TIME
HR
STO 12
8
STO 11
LBL 00
RCL 00
RCL 11
X=Y?
GTO 04
ISG 00
DEG
STO IND 00
LBL 01
ISG 10
DEG
RCL 00
STO 09
LBL 02
DSE 09
DEG
RCL 09
X=0?
GTO 00
RCL IND 00
RCL IND 09
-
X=0?
GTO 03
ABS
RCL 00
RCL 09
-
X#Y?
GTO 02
LBL 03
DSE IND 00
GTO 01
DSE 00
GTO 03
LBL 04
"S="
ARCL 10
"} IN "
TIME
HR
RCL 12
-
3600
*
FIX 02
ARCL X
"} SEC"
AVIEW
RTN

      
Re: More N-Queens benchmark results
Message #2 Posted by Xerxes on 27 July 2007, 7:49 a.m.,
in response to message #1 by Egan Ford

Thank you for testing. The list was updated with your interesting results.


[ Return to Index | Top of Index ]

Go back to the main exhibit hall