Hellow,
je me suis déjà amusée à créer quelques petits programmes sur ma TI84+SE mais ils ne sont pas très optimisés (alkashi, trinome, ..., voire carrément lourd pour mon convertisseur dec-bin-bcd-hex ! [>_<])

Tout récemment (hier soir), j'ai codé un tit mastermind. Mais il fait plus de 600oct et il ne fonctionne que pour 4 chiffres différents (sinon, ça compte 2 ou 3 fois le même chiffre, enfin on se retrouve avec 3 bien placés et un mal placé, ou 2 bien placés et 3 mal placés... c'est du n'importe quoi !)
ü correspond à STO (->)
- corres. à é
ø corres. à Différent

pour les variables:
ABCD sont les chiffres de la combinaison à deviner
IJKL sont les chiffres proposés par le joueur (enfin le joueur propose T qui est séparé en 4 chiffres)
Y est le nombre de tour
M ne sert que pour l'affichage des bons chiffres mal placés (U) et des bons chiffres bien placés (V)

Code:

EffEcr entAl–at(1,8)üA AüB While A=B entAl–at(1,8)üB End BüC While A=C ou B=C entAl–at(1,8)üC End CüD While A=D ou B=D ou C=D entAl–at(1,8)üD End 1üY While Y÷12 Input "",T T/1000üI partEnt(I)üI T-I*1000üT T/100üJ partEnt(J)üJ T-J*100üT T/10üK partEnt(K)üK T-K*10üL 0üU 0üV If I=A Then V+1üV Else If ((I=B et IøJ) ou (I=C et IøK) ou (I=D et IøL)) et IøA Then U+1üU End End If J=B Then V+1üV Else If ((J=A et JøI) ou (J=C et JøK) ou (J=D et JøL)) et JøB Then U+1üU End End If K=C Then V+1üV Else If ((K=A et KøI) ou (K=B et KøJ) ou (K=D et KøL)) et KøC Then U+1üU End End If L=D Then V+1üV Else If ((L=A et LøI) ou (L=B et LøJ) ou (L=C et LøK)) et LøD Then U+1üU End End 0üV If A=I Then V+1üV End If B=J Then V+1üV End If C=K Then V+1üV End If D=L Then V+1üV End YüM If Mù7 Then 7üM End If V=4 Then Output(M,9,"BRAVO!" Pause Stop End If Y=12 Then A*10^3+B*10Ü+C*10+DüR Output(M,13,R End Output(M,8,U Output(M,11,V Y+1üY End

Si quelqu'un pouvait m'aider (et surtout m'expliquer !) pour alléger le code et un peu l'améliorer !

Salut Myo!

Je vais lire ton code et tenter de voir ce qui ne va pas trop et ce que tu peux ameliorer.

Voyons:

Code:

Effecr

Jusque la, ça va. ^^

Code:

entAl–at(1,8)üA AüB While A=B entAl–at(1,8)üB End BüC While A=C ou B=C entAl–at(1,8)üC End CüD While A=D ou B=D ou C=D entAl–at(1,8)üD End

Ca aussi ça va, ça doit etre optimisable, mais on verra plus tard.
(au fait, dans les regles du mastermind, faut que les 4 chiffres soient differents [enfin les couleurs], donc que ce soient 4 chiffres differents, ben c'est pas grave)

Ah ben non, chui con, tu veux justement qu'on t'optimises tout ça!


bon:
Tel quel, c'est difficilement optimisable, alors je te conseille de remplacer tes variables par une liste a 4 elements (par exemple LMASTER : le L c'est un petit L qui commence une liste (tu peux le trouver dans le catalogue, c'est le premier signe en "l")

Au fait, je programme en anglais, et je connait pas les correspondances en francais, donc si tu cherches quelque chose, cherches sa traduc' (genre Fill = remplir)

Code:

4->dim(LMASTER Fill(0,LMASTER

LA, tu initialises ta liste a 4 elements (dim), et tu la remplis de 0.
Ensuite, tu fais une boucle pour remplir la liste de 4 elements differents:

Code:

For(A,1,4    //debut de la boucle Delvar B    Repeat B different de LMASTER(1) and B different de LMASTER(2) etc avec LMASTER(3) et (4)  // la on veut que B dans lequel on va mettre le chiffre entre 1 et 8 soit different des autres chiffres ent-aleatoire(1,8)->B End  :  End // fin des deux boucles

Maintenant, tu as une liste LMASTER avec 4 elements.
voyons la suite:

Code:

1üY While Y÷12 Input "",T T/1000üI partEnt(I)üI T-I*1000üT T/100üJ partEnt(J)üJ T-J*100üT T/10üK partEnt(K)üK T-K*10üL 0üU 0üV

Peux devenir, en utilisant encore une fois une deuxieme liste, qu'on appellera, heu... L2 (la flemme de chercher autre chose).

Donc:

Code:

4->dim(L2  // cette fois, pas la peine de la remplir de 0 1->Y While Y different de 12 Input( "", T

Merde, plus le temps de finir de t'expliquer. Desole

J'finirais demain, sauf si quelqu'un d'autre le fait entre temps.
Gageons que ce n'est pas presse.

lol ça me rappelle le défi qu'on s'était lancés avec adriweb pour le mastermind

il a réussi à faire un mastermind de 255 octets et je suis descendu jusqu'à 198 octets (le code est dans ce même salon programmation je crois)

Le plus court n'est pas toujours le plus rapide.
J'ai découvert ça en php : par exemple le traitement ternaire est le plus long, après la methode des switch est moyenne et le mieux c'est le if et else... etonant !
Pareil pour for :

Code:

for($i = 0 ; $i<15 ; $i++) {   //Instructions }

plus lent que

Code:

$i = 0 while($i++<15) {   //instructions }

Etonant non ?
En basic je ne sait pas ni en C

_________________
Segata sanshiro ! せがた三四郎
Prosternez vous devant le Dr. Lakav !

oui mais en basic une boucle for est plus rapide qu'une boucle while

dans l'ordre :

• For
  
• While
  
• Goto
  

Ainsi, c'est mieux de faire

Code:

For(Z,0,104 getKey->Z End

plutôt que

Code:

While Z=/105 (différent de) getKey->Z End

étonnant aussi...

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

tama > j'ai vu (impressionnant, d'ailleurs!), mais si j'ai créé ce topic c'est pour que l'on m'aide à optimiser MON code en me montrant ce qu'il faut améliorer, etc... Je préfère que ça se fasse petit à petit pour bien comprendre et pouvoir réutiliser les notions que de faire un copier/coller.

Syfo > merci pour cette première amélioration, je vais déjà tester avec ces modifications.
[Et au passage, me renseigner sur les listes, je les avaient déjà trouvées par hasard mais je n'en connais pas tellement le fonctionnement...]
(na na, ce n'est pas urgent, j'ai encore toutes les vacances.)

oui c'est tordu comme façon de faire

Salut Myo.
N'ecoutes pas ces abrutis qui detournent ton topic. La j'ai vraiment pas de temps pour t'aider, mais dans le week-end, promis, je reviens et je t'explique les listes et je t'aide a optimiser ton code.

moi ? tordu ?

(tiens au passage y a plein de membres qui vont ou ont été en spé maths)

bon faudrait utiliser une liste et comparer les éléments, Syfo le non-tordu en dira plus

non Loop n'existe pas sur z80

on préfère faire

Code:

While 1 ... End

_________________
Modérateur des salons z80

Lisez le Journal de tibank, y a du bon ! :)

Envie de nous voir IRL ? participez à la réunion Nord de tibank !

Ca marche aussi sur 68k ce truc? C'est plus rapide qu'une Loop?

oui ça marche sur z80 mais pas sur 68k
et puis si c'est plus rapide je sais pas