Sharp PC-1360 find

[marcin1812]

(11-17-2024 09:50 PM)Josef Wrote:  I confirm.

Sharp PC-1350 - 47s
Sharp PC-1500A - 78s

TIME is working on PC1500A.

Did You bench N-Queen problem on Yours?
https://www.hpmuseum.org/cgi-sys/cgiwrap...i?read=700

I'm making wire connection, and little application to manage PC1360<->PC programs.
When I'll be able to store programs from PC1360, i will try NQueen bench.

BASIC
-------


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 (140 for all solutions)
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)
>_


(15720 nodes for all solutions)