Entrer une réponse dans un temps imparti

[PiR]

Bonjour, (oui c'est encore moi )
Je voudrais savoir comment faire pour que quelqu'un rentre une réponse (un nombre) dans un temps imparti.
J'ai trouvé une solution mais je pense qu'on peut mieux l'optimiser mais comment ?

Code: Select all

1->H
0->X
"1234567890"->Str1
" "->Str3
Repeat K=105
0->K
getKey->K
If K=102
Then
Output(1,H,0)
92üN
End
If K>=92 and K=<94
Then
Output(1,H,K-91
91->N
End
If K>=82 and K=<84
Then
Output(1,H,K-78
78->N
End
If K>=72 and K=<74
Then
Out>put(1,H,K-65
65-N
End
If K!=105 and K!=0
Then
sub(Str1,K-N,1)->Str2
Str3+Str2->Str3
H+1->H
End
X+1->X
If X=200
Disp "TROP TARD
End
Str3


Auriez-vous une idée pour l'optimiser ou alors avez-vous une autre solution ?
Merci d'avance

[Epharius]

Déjà, je ne pense qu'il y ai besoin d’initialiser K avant le getkey, c'est automatique
Ensuite le k!=0 peut être simplifié en k c'est-à-dire : If K!=105 and k

Mais sinon je ne vois pas trop comment tu pourrais faire autrement, c'est déjà pas mal optimisé...

[Wistaro]

Tu peux toujours gagner quelques octets en enlevant les " et) finaux.

Code: Select all

Output(1,H,0)



Devient

Code: Select all

Output(1,H,0



Ou encore

Code: Select all

"1234567890"->Str1



Devient

Code: Select all

"1234567890->Str1



.
Ce ne sont que des exemples, il y en a encore d'autres dans ton programme.

Ah, oui, aussi. Ceci:

Code: Select all

DelvarK
//Ou plus haut dans ton programme
DelvarX


Au lieu de

Code: Select all

0->K
//et plus haut dans ton programme
0->X


(mais ici, comme dit Ptirageur, c'est inutile pour le K).

Au final, ton début de code ça donne cela:

Code: Select all

1->H
DelvarX"1234567890->Str1


Enfin,

Ceci:

Code: Select all

If K>=72 and K=<74


Peut devenir :

Code: Select all

If (K>=72)(K=<74


Et pareil pour tes autres conditions. Je sais pas si tu gagnes quelques octets, mais c'est plus propre je trouve

Aussi:

Code: Select all

sub(Str1,K-N,1)->Str2
Str3+Str2->Str3


Peut devenir :

Code: Select all

Str3+sub(Str1,K-N,1->Str3


Voilà je pense que j'ai fait le tour!

[Epharius]

Enfin,

Ceci:

Code: Select all

If K>=72 and K=<74

Peut devenir :

Code: Select all

If (K>=72)+(K=<74

Et pareil pour tes autres conditions. Je sais pas si tu gagnes quelques octets, mais c'est plus propre je trouve

Par contre wistaro, il faudrait remplacer ton If (K>=72)+(K=<74 par un If (K>=72)(K=<74 parce que sinon ça remplace le Or et non le And

[Wistaro]

Ah flûte merci de l'avoir signalé

PS: Je viens d'éditer mon message à l'instant

[PiR]

ok super merci les gars

[Wistaro]

Pas de souci !

[grosged]

Au sujet du

Code: Select all

If (K≥72)(K≤74

On peut encore grapiller 4 octets avec

Code: Select all

If 1≥abs(73-K

[Wistaro]

Hein? Tu peux expliquer ?

[grosged]

K est-il entre 72 et 74 ?

Code: Select all

If (K≥72)(K≤74

qu'on peut formuler aussi "K est-il dans les parages de 73 ? (c'est-à dire =73 ou juste à côté)"
avec K=72, 73 ou 74 , (73-K) nous donnera respectivement 1,0,-1
d'où la simplification en passant en absolu:

Code: Select all

If abs(73-K)≤1

et en optimisant un chouïa (histoire de retirer une parenthèse)

Code: Select all

If 1≥abs(73-K

On pourrait même étendre cette façon de faire au pavé numérique (sauf le zéro)
Si l'on veut juste savoir si l'une des 9 touches à été pressée :
On prend la valeur de la touche centrale, en l'occurence la touche

5

(dont le getKey=83)
Avec (83-K) on aura les résultats:
11,10,9
1,0,-1
-9,-10,-11
en passant en absolu, abs(83-k) nous donnera soit 0,1,9,10,11
là, on remarque que pour les 3 dernières valeurs possibles, il nous suffirait de soustraire 10 pour de nouveau arriver à une valeur -1,0 ou 1
Ce qui nous fait:

Code: Select all

Repeat 1≥Ans or 1≥abs(Ans-10
getKey→K:Abs(83-K
End