1
Salut, je voufrais juste savoir si mon code peut être optimisé (je pense bien qu'il le peut smile ) et comment... tongue
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 smile vu que je vais me servir de ce code avce xLib, ils auront plus aucune utilité grin
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
2
"ø" = "!=" ?
3
oui, j'arrange ça...
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
4
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

5
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é
6
wouhahou ! ça fait vraiment la même chose ça ?? o_O
Merci beaucoup vieux wink
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
7
Pas testé. J'ai juste regroupé les 4 cas, le reste c'est de l'optimisation locale.
8
ok. Merci mec wink
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
9
voila ce que ça a donné ton aide : LABYROC2 version graphique

Merci encore grin
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
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 smile
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic
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 grin)
avatarloclamor
Mondo Photo
Le voyage en photo et en 1 clic