Bon, c'est bien beau de parler des idées, alors comme je le disais dans le post de la gazette 6, j'aime bien les petits jeux sur nos pockets. Je propose un jeu classique, ou il faut trouver un code de 3 chiffres composé des nombres de 0 à 5 sur casio FX-8500G mais ça le fait aussi sur les autres. On a 9 chances.
Mcl : 0->J :
Lbl 0 : Int (Rand#x6)->A[J] : Lsz J : J<=3 =>Goto 0 : 9->N : 3->I :
Lbl 1 : ?->A : Lsz I : I<=5=>Goto 1 : 0->K : 0->L : 0->I :
Lbl 2 : 0->T : 2->J :
Lbl 3 : Lsz J :A ≠ A[J] =>Goto 5 : 1-> T : I ≠ J-3 =>Goto 4 : K+1->K : Goto 6 :
Lbl 4 : L+1->L : Goto 6 :
Lbl 5 : J<5=>Goto 3 :
Lbl 6 : -1->A[J] : Lsz I : I<=2=>Goto 2 : "Bien place" ▴ K ▴ "Mal place" ▴ L ▴ K ≠ 3 => Goto 7 : "Gagne" ▴ 0->J : Goto 0
Lbl 7 : Dsz N : Goto 1 : "Perdu" ▴ A[0] ▴ A[1] ▴ A[2] ▴
J'espère que je me suis pas trompé en recopiant. En tout cas, ça détend !!!
Trouver le code
Modérateur : Politburo
- spacemax
- Fonctionne à 300 bauds

- Messages : 85
- Inscription : 05 nov. 2011 13:45
- Localisation : Alpes de Haute Provence
- Contact :
Trouver le code
Don't forget the spirit of the game...
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
- spacemax
- Fonctionne à 300 bauds

- Messages : 85
- Inscription : 05 nov. 2011 13:45
- Localisation : Alpes de Haute Provence
- Contact :
Re: Trouver le code
Je me suis aperçu d'une coquille...mais je le dis pas !
Don't forget the spirit of the game...
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
- ledudu
- Fonctionne à 14400 bauds

- Messages : 5600
- Inscription : 26 mars 2009 14:07
- Localisation : Ile de France
- Contact :
Re: Trouver le code
Tu définies la variable T pour ne pas compter deux fois une chiffre mal placé mais tu ne fais pas le contrôle...
- spacemax
- Fonctionne à 300 bauds

- Messages : 85
- Inscription : 05 nov. 2011 13:45
- Localisation : Alpes de Haute Provence
- Contact :
Re: Trouver le code
1) oui, la variable T n'est pas utilisée pour controle
2) la variable L compte les chiffres mal placés mais n'est pas contrôlée, la variable K compte les bien placés
exemple tirage 3 2 1
Saisie (1,2,1)
Comparaison :
3 - 1 : j+1
3 - 2 : j+1
3 - 1 : j+1 -1 saisie (1,2,1) Bien placé 0 mal placé 0
2 - 1 : j+1
2 - 2 : k+1 => saisie (1,-1,1) Bien placé 1
2 - 1 : j+1 saisie (1,-1,1) Bien placé 1 mal placé 0
1 - 1 : L+1 => saisie (-1,-1,1) Bien placé 1 mal placé 1
1 - 2 : j+1
1 - 1 : k+1 => saisie (-1,-1,-1) Bien placé 2 mal placé 1 <- Le comptage du mal placé n'est pas corrigé ici
...A modifier !
2) la variable L compte les chiffres mal placés mais n'est pas contrôlée, la variable K compte les bien placés
exemple tirage 3 2 1
Saisie (1,2,1)
Comparaison :
3 - 1 : j+1
3 - 2 : j+1
3 - 1 : j+1 -1 saisie (1,2,1) Bien placé 0 mal placé 0
2 - 1 : j+1
2 - 2 : k+1 => saisie (1,-1,1) Bien placé 1
2 - 1 : j+1 saisie (1,-1,1) Bien placé 1 mal placé 0
1 - 1 : L+1 => saisie (-1,-1,1) Bien placé 1 mal placé 1
1 - 2 : j+1
1 - 1 : k+1 => saisie (-1,-1,-1) Bien placé 2 mal placé 1 <- Le comptage du mal placé n'est pas corrigé ici
...A modifier !
Don't forget the spirit of the game...
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
- spacemax
- Fonctionne à 300 bauds

- Messages : 85
- Inscription : 05 nov. 2011 13:45
- Localisation : Alpes de Haute Provence
- Contact :
Re: Trouver le code
J'ai changé mon fusil d'épaule et je n'essaie plus de compter les bien placés et les mal placés à la volée. J'utilise 3 mémoires supplémentaires que je lis à la fin de ma vérification. Le code s'est un peu rallongé mais est testé et ok. Peut-être à optimiser.
Mcl : 0->J :
Lbl 0 : Int (Rand#x7)->A[J] : Lsz J : J<=3 =>Goto 0 : 10->N : 3->I :
Lbl 1 : 0->A[24] : A->A[25] : 0->A[26] : ?->A : Lsz I : I<=5=>Goto 1 : 0->I
Lbl 2 : 2->J
Lbl 3 : Lsz J : A ≠ A[J]=>Goto 5 : I ≠ J-3=>Goto 4 : 2->A[I+24] : Goto 6 :
Lbl 4 : A[I+24] ≠ 2=>1->A[I+24]
Lbl 5 : J<=5=>Goto 3 :
Lbl 6 : Lsz I : I<=2=>Goto 2 : 23->I : 0->K : 0->L :
Lbl 7 : Lsz I : A=1=>L+1->L : A =2=>K+1->K : I<26=>Goto 7 : "Bien Place" : K : "Mal place" : L : 3->I : K ≠ 3=>Goto 8 : "GAGNE" : 0->J : Goto 0
Lbl 8 : Dsz N : Goto 1 : "Perdu" : A[0] : A[1] : A[2]
Mcl : 0->J :
Lbl 0 : Int (Rand#x7)->A[J] : Lsz J : J<=3 =>Goto 0 : 10->N : 3->I :
Lbl 1 : 0->A[24] : A->A[25] : 0->A[26] : ?->A : Lsz I : I<=5=>Goto 1 : 0->I
Lbl 2 : 2->J
Lbl 3 : Lsz J : A ≠ A[J]=>Goto 5 : I ≠ J-3=>Goto 4 : 2->A[I+24] : Goto 6 :
Lbl 4 : A[I+24] ≠ 2=>1->A[I+24]
Lbl 5 : J<=5=>Goto 3 :
Lbl 6 : Lsz I : I<=2=>Goto 2 : 23->I : 0->K : 0->L :
Lbl 7 : Lsz I : A=1=>L+1->L : A =2=>K+1->K : I<26=>Goto 7 : "Bien Place" : K : "Mal place" : L : 3->I : K ≠ 3=>Goto 8 : "GAGNE" : 0->J : Goto 0
Lbl 8 : Dsz N : Goto 1 : "Perdu" : A[0] : A[1] : A[2]
Don't forget the spirit of the game...
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
- ledudu
- Fonctionne à 14400 bauds

- Messages : 5600
- Inscription : 26 mars 2009 14:07
- Localisation : Ile de France
- Contact :
Re: Trouver le code
Oui c'est ce que j'ai fait sur la cp-400.
Trois listes:
- une pour les chiffres à trouver
- une pour le coup du joueur
- une pour les contrôle et éviter les doublons
Trois listes:
- une pour les chiffres à trouver
- une pour le coup du joueur
- une pour les contrôle et éviter les doublons
