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

[m@thieu41]

Pas bête, on gagne 2 octets

[grosged]

Yes !! enfin descendu jusqu'à 2oo octets (sur la TI84pocket.fr) voire 197 octets !! (sur d'autres modèles)
@Mathieu : comme tu le remarques, c'est sur ta dernière "mouture" que j'ai bossé

Code: Select all

16→P
seq(A,A,1,Ans→L1
Ans→L2
.1→C
Repeat 1=sum(L1≠L2
Repeat Kint(C
getKey+randInt(24,27)not(int(C→K
√C→C
P→Z
fPart(Ans/4
P+(K=24 and Ans)-(K=26 and Ans≠.25)-4((K>26 and P>4)-(K=25 and P<13→P
L1(P→L1(Z
End
ClrHome
For(W,0,3
For(V,1,4
4W+V
If Ans≠P
Output(W+3,3V,L1(Ans
End
End
End
"GAGNE

étant donné qu'on travaille sur une liste, je me suis dis de ne plus utiliser 2 mais 1 seule variable de position

Par contre, je regrette un peu l'affichage par matrice (c'était beaucoup plus rapide)
Je vais me pencher sur ma version "matrice" mais je ne pense pas la réduire jusquà 2oo...

[m@thieu41]

Excellent!

Franchement chapeau là

Inverse les 2 lignes:

Code: Select all

√C→C
getKey+randInt(24,27)not(int(C→K

et le problème d'attendre une touche est réglé:

Code: Select all

getKey+randInt(24,27)not(int(C→K
√C→C

[grosged]

Mais c'est bien sur !! thx
ça m'avait paru bizarre de devoir appuyer

(j'édite ça tout de suite)

[grosged]

Ah y a eu de l'émulation "constructive" entre Mathieu & moi (et je l'en remercie ! ),
En fait, au fil des postes, ça s'est quasiment transformé en "travail de binôme" !

Ce qui est génial dans la programmation c'est qu'on continue d'en apprendre chaque jour

...Alors, toujours personne / pas d'idée pour lancer l' Opti-Défi n°2

[m@thieu41]

Oui c'était vraiment super

On apprend toujours de nouvelles astuces grâce aux autres, il y a toujours un truc qu'on a pas envisagé mais auquel quelqu'un d'autre a pensé

Je te remercie toi aussi


Je cherche pour le défi n°2 ^^

[mdr1]

Pourquoi pas un snake ?

[grosged]

Un snake ?.. Pourquoi pas !!
Vas-y lance le poste ( intitulé Opti-Défi n°2 : xxxx stp

[mdr1]

Fait : viewtopic.php?f=11&t=14596

[grosged]

Super ! Merciii