Optimisation programme TI-Basic

ici · by **Larwive** » 22 Nov 2019, 19:06

Bonjour/Bonsoir,
j'ai créé un labyrinthe sur ma TI-83 Premium CE mais je trouve que c'est très lent.

Le principe du labyrinthe : On contrôle un "+" qui commence en haut à gauche et on doit le faire rejoindre le "=" en bas à droite.
Les murs (ou plutôt téléporteurs) sont invisibles jusqu'à qu'on se cogne contre eux. On est alors téléporté au tout début.

Voici le code :

Code: Select all: 0→K EffÉcran Output(1,1,"VERSION 1.01 Repeat K=105 getKey→K End EffÉcran 1→X:1→Y 1→A:1→B Output(10,26,"= Repeat (X=26 et Y=10) ou K=45 Output(A,B," Output(Y,X,"+ Y→A:X→B getKey→K X-(K=24)+(K=26)→X Y-(K=25)+(K=34)→Y If X=0:1→X If X=27:26→X If Y=0:1→Y If Y=11:10→Y If (Y=1 et (X=7 ou X=9 ou X=17)) ou (Y=2 et (X=5 ou X=7 ou X=9 ou X=11 ou X=14 ou X=16 ou X=18 ou X=19 ou X=20 ou X=23 ou X=25)) ou (Y=3 et (X=1 ou X=3 ou X=5 ou X=9 ou X=12 ou X=19 ou X=22)) ou (Y=4 et (X=5 ou X=6 ou X=8 ou X=11 ou X=16 ou X=23 ou X=24 ou X=25)) ou (Y=5 et (X=1 ou X=3 ou X=10 ou X=13 ou X=15 ou X=16 ou X=17 ou X=20 ou X=21 ou X=24)) ou (Y=6 et (X=1 ou X=4 ou X=6 ou X=10 ou X=11 ou X=17 ou X=24 ou X=26)) ou (Y=7 et (X=3 ou X=4 ou X=8 ou X=11 ou X=13 ou X=17 ou X=19 ou X=20 ou X=24)) ou (Y=8 et (X=1 ou X=7 ou X=13 ou X=15 ou X=17 ou X=21)) ou (Y=9 et (X=2 ou X=3 ou X=4 ou X=9 ou X=11 ou X=13 ou X=17 ou X=18 ou X=21 ou X=22 ou X=23 ou X=24 ou X=25)) ou (Y=10 et (X=6 ou X=11 ou X=13 ou X=15 ou X=18 ou X=19 ou X=25)) Then:Output(Y,X,"* 1→X 1→Y End End EffÉcran If X=26 et Y=10 Disp "GAGNÉ !

Mais c'était pire qu'avant car les parenthèses avec les Y=... étaient développées.

Donc j'aimerai savoir où est-ce qu'on pourrait encore gagner du temps d'exécution.

→ **MyCalcs** profile · by **Wistaro** » 22 Nov 2019, 19:46

Je pense que tu pourrais améliorer ton algorithme, tout simplement.
Tes if en masse doivent beaucoup ralentir le programme, essaye de trouver une solution pour t'en passer.

ici · by **Larwive** » 22 Nov 2019, 19:53

Mes If en masse... Tu veux dire les 5 If à la suite ou le gros If ?

→ **MyCalcs** profile · by **Wistaro** » 22 Nov 2019, 20:00

LePetitMage wrote:Mes If en masse... Tu veux dire les 5 If à la suite ou le gros If ?

Le gros if

ici · by **Larwive** » 22 Nov 2019, 20:12

Du coup je ne vois pas de moyen de m'en passer.
Il faudra bien des If pour savoir si on se cogne contre un mur.

→ **MyCalcs** profile · by **critor** » 22 Nov 2019, 20:21

Projet intéressant.

Il faut réduire le nombre de lignes et le nombre de lignes compliquées dans la boucle.
Je vois que tu as utilisé une astuce pour les touches contrôlant X et Y. On peut également inclure le test des bornes sur la même ligne.

Et surtout, au lieu d'un énorme If on peut stocker ton labyrinthe sous forme de matrice (tableau de nombres).

Code: Select all: [[0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0][0,0,0,0,1,0,1,0,1,0,1,0,0,1,0,1,0,1,1,1,0,0,1,0,1,0][1,0,1,0,1,0,0,0,1,0,0,1,0,0,0,0,0,0,1,0,0,1,0,0,0,0][0,0,0,0,1,1,0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,1,1,1,0][1,0,1,0,0,0,0,0,0,1,0,0,1,0,1,1,1,0,0,1,1,0,0,1,0,0][1,0,0,1,0,1,0,0,0,1,1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,1][0,0,1,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,1,0,0,0,1,0,0][1,0,0,0,0,0,1,0,0,0,0,0,1,0,1,0,1,0,0,0,1,0,0,0,0,0][0,1,1,1,0,0,0,0,1,0,1,0,1,0,0,0,1,1,0,0,1,1,1,1,1,0][0,0,0,0,0,1,0,0,0,0,1,0,1,0,1,0,0,1,1,0,0,0,0,0,1,0]]→[A] 0→K EffÉcran Output(1,1,"VERSION 1.01 Repeat getKey=105 End EffÉcran 1→X:1→Y 1→A:1→B Output(10,26,"= Repeat (X=26 et Y=10) ou K=45 Output(A,B," Output(Y,X,"+ Y→A:X→B getKey→K max(1,min(26,X-(K=24)+(K=26→X max(1,min(10,Y-(K=25)+(K=34→Y If [A](Y,X Then:Output(Y,X,"* 1→X 1→Y End End EffÉcran If X=26 et Y=10 Disp "GAGNÉ !

ici · by **Larwive** » 22 Nov 2019, 20:28

Donc les 1 dans la matrice correspondent aux emplacements où il y a un obstacle et les 0 là où il n'y en a pas.

Sinon, que teste la ligne

Code: Select all: If [A](Y,X

?

Anecdote : La version précédente de celle plus haut comptait 354 lignes et 85 If en tout.

La prochaine étape est de créer un labyrinthe avec des murs aléatoirement disposés.