CASIO Graph 90+E

[brickviking]

(09-01-2018 10:40 AM)xerxes Wrote:  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've tried this on the older 9750GII (upgraded OS) and a 9750G+. I got 876 in about 45 seconds on the GII, but got a Syn Error at the IfEnd for the G+, and I don't know why yet, as it's the same code on both. Any clues?

EDIT: Ah, I forgot to follow the initial hpmuseum link, I've found the G+ code differs from the GII code. However, I'd still like to know why the newer code doesn't work. I entered the code from the link for the G+, and it errors out on List 1[X]-List1[Y]->T (with Arg Error).

(Post 275)