8-Queens Benchmark

[Hlib]

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