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

→ **MyCalcs** profile · de **m@thieu41** » 29 Mai 2014, 09:45

Hey!

Je gagne un octet en changeant:

Code: Tout sélectionner: Repeat 15=sum(L1=L2

par:

Code: Tout sélectionner: Repeat 1=sum(L1!=L2

Et encore un en changeant l'affichage:

Code: Tout sélectionner: For(W,4,19 If W-4B-A-3 Output(int(4/W),12fPart(W/4)+1,L1(W-3 End

Devient:

Code: Tout sélectionner: 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!!!

→ **MyCalcs** profile · de **grosged** » 29 Mai 2014, 15:57

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

→ **MyCalcs** profile · de **Bisam** » 29 Mai 2014, 16:27

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

→ **MyCalcs** profile · de **grosged** » 29 Mai 2014, 16:40

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?

→ **MyCalcs** profile · de **m@thieu41** » 29 Mai 2014, 17:01

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: Tout sélectionner: 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...

→ **MyCalcs** profile · de **grosged** » 29 Mai 2014, 17:56

'a y est ça marche!

Merci pour tes explications : c'est limpide maintenant

j'aurais bien vu

Code: Tout sélectionner: 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: Tout sélectionner: 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

→ **MyCalcs** profile · de **m@thieu41** » 29 Mai 2014, 18:57

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: Tout sélectionner: 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...

→ **MyCalcs** profile · de **grosged** » 29 Mai 2014, 20:38

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: Tout sélectionner: 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...

→ **MyCalcs** profile · de **m@thieu41** » 29 Mai 2014, 20:46

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

→ **MyCalcs** profile · de **grosged** » 29 Mai 2014, 20:54

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