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
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

2

"ø" = "!=" ?

3

oui, j'arrange ça...
avatar
loclamor
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
avatar
loclamor
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
avatar
loclamor
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
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

10

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

11

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
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic

12

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). )
«Les gens exigent la liberté d’expression pour compenser la liberté de pensée qu’ils préfèrent éviter.» - Sören Kierkegaard

La République, c’est comme la syphilis : quand on l’a attrapée, soit on se fait sauter le caisson, soit on essaie de vivre avec.

13

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)
avatar
loclamor
Mondo Photo
Le voyage en photo et en 1 clic