Opti-Défi n°1 : Jeu du taquin 4x4

[m@thieu41]

Hey!
Je gagne un octet en changeant:

Code: Select all

Repeat 15=sum(L1=L2

par:

Code: Select all

Repeat 1=sum(L1!=L2

Et encore un en changeant l'affichage:

Code: Select all

For(W,4,19
If W-4B-A-3
Output(int(4/W),12fPart(W/4)+1,L1(W-3
End

Devient:

Code: Select all

For(W,0,3
For(V,1,4
If W-B or V-B
Output(W+1,3V,L1(4W+V
End
End

Donc... 205 octets!!!

[grosged]

Alors, là ! Bravo!

(j'entre ta version dans la TI....)

Dis, j'ai pas trop compris : il est fiable , le " Repeat 1=sum(L1!=L2 " ?

EDIT: tu peux poster ta toute dernière version (ou mieux : la transférer) car j'ai recopié : ça bug

[Bisam]

Il faut mettre ≠ à la place de !=, bien sûr...

[grosged]

ok Bisam, thx
Je pense avoir bien recopié le programme ( incluant les toutes dernières optimisations)

mais j'ai toujours un bug :
seules les touches haut et bas réagissent, et ça bouge en diagonal
@Mathieu41, tu peux poster ou transférer stp?

[m@thieu41]

J'ai fait une erreur ici ^^:
For(W,0,3
For(V,1,4
If W-B or V-A

Ton bogue correspond parfaitement avec ma confusion A/B, donc ça devrait juste venir de là.

Voici quand même le code qui marche (je ne peux pas transférer je n'ai pas de cable):

Code: Select all

seq(A,A,1,16->L1
Ans->L2
3->B
4->A
.1->C
Repeat 1=sum(L1!=L2
Repeat Kint(C
A->D
B->E
getKey+randint(24,27)not(int(C->k
sqrt(C->C
max(1,min(4,A+(K=26)-(K=24->A
min(3,B+(K>26)-(K=25 and B->B
L1(4B+A->L1(4E+D
End
ClrHome
For(W,0,3
For(V,1,4
If W-B or V-A
Output(W+1,3V,L1(4W+V
End
End
End
ClrHome
"GAGNE

Par contre le mélange est souvent bof bof...

Dis, j'ai pas trop compris : il est fiable , le " Repeat 1=sum(L1!=L2 " ?

Ce que je fais: je déplace juste la case contenant le nombre, je ne me préoccupe pas de ce que contient la case espace.
Donc du coup, lorsque je finis le taquin, c'est que toutes les case contiennent le bon nombre, sauf la dernière. Donc lorsque 1=sum(L1!=L2
Et puisque que je sais que la dernière case contient forcément autre chose que 16, il y a forcément au moins une erreur, donc quand il y en a qu'une c'est qu'on a gagné. Donc oui c'est fiable

Il faut mettre ≠ à la place de !=, bien sûr...

Flemme...

[grosged]

'a y est ça marche!
Merci pour tes explications : c'est limpide maintenant
j'aurais bien vu

Code: Select all

While log(sum(L1≠L2

( = un pitit octet grapillé )
mais au tout début du programme, chacunes des 16 valeurs sont à leur place , alors log(0 donne une erreur
j'vais voir s'il y a pas moyen ailleurs ...


au fait, t'es sur quelle TI ?
(détail important : ton programme, sur ma TI84pocket.fr prends 208 octets)

et pour le -24 à incorporer auprès du getKey, j'verrais bien ça:

Code: Select all

getKey-24+randInt(48,51)not(int(C→K

(après, faut voir si ça vaut vraiment le coup pour ce qui en découlerait... car le Kint(C serait à revoir

[m@thieu41]

Pas mal le log
Dommage qu'on ne puisse pas le faire ^^

Je suis sur 82stats.fr... et j'ai bien 205 octets...
Bizarre de prendre 3 octets comme ça... Tu as donné quel nom au prgm?

Code: Select all

getKey-24+randInt(48,51)not(int(C→K

Heu... Pourquoi?

Du coup on aurait 0/1/2/10 si par code touche et 24/25/26/27 si par aléatoire...

[grosged]

J'ai bien nommé le programme "TAQUIN"
mais t'inquiètes ... c'est apparemment normal ces p'tits écarts de quelques octets d'un modèle de Ti à une autre (ça m'fait ça aussi entre ma vieille ti83 et ma 84pocket par ex)

euh...à y regarder de plus près, pour

Code: Select all

getKey-24+randInt(48,51)not(int(C→K

oublie! j'ai pas (assez) réfléchi! héhé

je suis en train de tester le résultat de diffèrentes modifs sur ton programme...

[m@thieu41]

Ca doit être une histoire de mémoire flash ou non (adresse plus complète à donner pour le prgm?), sinon je vois pas ^^

J'ai essayé un max de trucs mais je piétines

[grosged]

petite idée: tu vires le clrhome avant "GAGNE
et pour pas écraser quand le jeu est résolu, affiche la grille 2 ou 3 ligne plus bas par ex

Output(W+1,3V,L1(4W+V remplacé par:

Output(W+3,3V,L1(4W+V
ou
Output(W+4,3V,L1(4W+V