8-Queens Benchmark

[xerxes]

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)
 >_