aide optimisation - Page 1

Salut, je voufrais juste savoir si mon code peut être optimisé (je pense bien qu'il le peut ) et comment...
je vous balance le code... :

If Ans=24 and X>1:Then
If [A](Y,X-1)=0:Then:X-1->X:Else
If [A](Y,X-1)!=1:Then
If [A](Y,X-1)=2 and ([A](Y,X-2)=0 or [A](Y,X-2)=3):Then:X-1->X
If [A](Y,X-1)=0:Then:2->[A](Y,X-1):Output(Y,X-1,"O":End
If [A](Y,X-1)=3:Then:0->[A](Y,X-1):Output(Y,X-1," ":End
End:End:End:End
If Ans=26 and X<16:Then
If [A](Y,X+1)=0:Then:X+1->X:Else
If [A](Y,X+1)!=1:Then
If [A](Y,X+1)=2 and ([A](Y,X+2)=0 or [A](Y,X+2)=3):Then:X+1->X
If [A](Y,X+1)=0:Then:2->[A](Y,X+1):Output(Y,X+1,"O":End
If [A](Y,X+1)=3:Then:0->[A](Y,X+1):Output(Y,X+1," ":End
End:End:End:End
If Ans=25 and Y>1:Then
If [A](Y-1,X)=0:Then:Y-1->Y:Else
If [A](Y-1,X)!=1:Then
If [A](Y-1,X)=2 and ([A](Y-2,X)=0 or [A](Y-2,X)=3):Then:Y-1->Y
If [A](Y-1,X)=0:Then:2->[A](Y-1,X):Output(Y-1,X,"O":End
If [A](Y-1,X)=3:Then:0->[A](Y-1,X):Output(Y-1,X," ":End
End:End:End:End
If Ans=34 and Y<8:Then
If [A](Y+1,X)=0:Then:Y+1->Y:Else
If [A](Y+1,X)!=1:Then
If [A](Y+1,X)=2 and ([A](Y+2,X)=0 or [A](Y+2,X)=3):Then:Y+1->Y
If [A](Y+1,X)=0:Then:2->[A](Y+1,X):Output(Y+1,X,"O":End
If [A](Y+1,X)=3:Then:0->[A](Y+1,X):Output(Y+1,X," ":End
End:End:End:End

voila. Et à la limite, les output on s'en fous vu que je vais me servir de ce code avce xLib, ils auront plus aucune utilité

"ø" = "!=" ?

oui, j'arrange ça...

Ans->K
(Ans=26 and X<16)-(Ans=24 and X>1->I
(K=34 and Y<8)-(K=25 and Y>1->J
If not([A](Y+Ans,X+I
Then
Y+Ans->Y:X+I->X
Else
If 2=[A](Y+Ans,X+I
Then
If max([A](Y+2Ans,X+2I)={0,3
Then
Y+Ans->Y:X+I->X
If not([A](Y+J,Ans+I
Then
Output(Y+J,Ans+I,"O
2->[A](Y+J,Ans+I
Else
If 3=[A](Y+J,Ans+I
Then
Output(Y+J,Ans+I," 
0->[A](Y+J,Ans+I
End
End
End
End
End

J'ai pas compris à quoi servait la condition [A](.,.)!=1

Ah oui ! C'est sûrement parce-que dans le cas =1, [A](Y+2J,X+2I) n'est pas défini.

Corrigé

wouhahou ! ça fait vraiment la même chose ça ?? o_O
Merci beaucoup vieux

Pas testé. J'ai juste regroupé les 4 cas, le reste c'est de l'optimisation locale.

ok. Merci mec

voila ce que ça a donné ton aide : LABYROC2 version graphique

Merci encore

Derien Loïc. C'est beaucoup plus rapide ? (le choix entre regrouper ou pas les 4 cas est intéressant)

beaucoup plus, il semble pas trop, peut être un peut... Mais sur 83+, ça ram quand même toujours un peut...
Mais g passé le prog et xLib à un pote qui a une 84+ et là c'est nikel

Baruch (./4) :
If max([A](Y+2Ans,X+2I)={0,3

Très bien joué ça. ( j'aimerais bien tester voir. Pas évident que ça gagne énorme en vitesse. surement qu'affecter ça à une variable et faire le ou dois être plus rapide ( mais plus gros). )

version non graphique (avec le code bourrin) : http://ti.bank.free.fr/index.php?mod=archives&ac=voir&id=977
version graphique avec le code optimisé par notre ami Baruch : http://ti.bank.free.fr/index.php?mod=archives&ac=voir&id=1001

Si vous voulez tester (ou y jouer aussi )