CASIO Graph 90+E

[xerxes]

(08-30-2018 03:54 PM)Dave Britten Wrote:  EDIT: It can run the standard 8x8 n-queens benchmark (http://www.hpmuseum.org/cgi-sys/cgiwrap/...i?read=700) in a bit under one second. (I just did a quick port of the generic Pascal version on that page.)

Would be nice to have your test result and the code in the list, if you are also interested.
If yes, can you please check the execution time with an outer loop of 100 iterations for a
more accurate result?

The CG20 needs 39.7 seconds with BASIC. Strangely using MAT is a bit faster than using a list.

Code:

 0->A~Z
 8->R
 {R,1}->Dim Mat A
 0
 Do
 Isz X
 R->Mat A[X,1]
 Do
 Isz S
 X->Y
 While Y>1
 Dsz Y
 Mat A[X,1]-Mat A[Y,1]->T
 If T=0 Or X-Y=Abs T
 Then 0->Y
 Mat A[X,1]-1->Mat A[X,1]
 While Mat A[X,1]=0
 Dsz X
 Mat A[X,1]-1->Mat A[X,1]
 WhileEnd
 IfEnd
 WhileEnd
 LpWhile Y<>1
 LpWhile X<>R
 S

I guess the CG50 should do it in around 20 seconds.