Probleme expr(str1

[PiR]

Bah, tu fais exprès ou quoi ?

Code: Select all

Str5+Str4->Str5

évidemment !

AHHHH d'accord, il y a juste à inverser l'ordre
Ok, autant pour moi
Merci beaucoup

[grosged]

Je me suis amusé à écrire une version sans LinReg :

Code: Select all

"2345678910→Str0
"sub(Str0,1+int(X),randInt(1,1+(X≥8→Y1
Y1(rand9)+sub("+-*/",randInt(1,4),1)+Y1(rand9→Str1
Disp Str1,expr(Str1

Et maintenant, dans le détail:

Code: Select all

"2345678910→Str0

On aura pu se contenter d'un "12345678910→Str1 mais j'optimise légèrement : on n'a pas besoin d'avoir deux fois le caractère "1" représenté, finalement.

Code: Select all

"sub(Str0,1+int(X),randInt(1,1+(X≥8→Y1

Y1(x) a pour fonction (!) de piocher un caractère au hasard dans la chaîne Str0, à l'emplacement X ; et quand ça tombe sur "1" , cette fonction décide au hasard d'associer ou non le "0" voisin (ainsi, considérer "1" ou "10")
C'est vrai , qu'avec cette méthode , la TI a encore moins de chance de nous sortir un "10" (mais je pense que ce n'est pas trop grave : des calculs incluant "10" sont souvent moins intéressants car plus faciles à résoudre...)

Code: Select all

Y1(rand9)+sub("+-*/",randInt(1,4),1)+Y1(rand9→Str1

rand9 nous "pondra" théoriquement des nombres entre 0 et 8.999999...(d'où le 1+int(X) dans le sub de la fonction Y1 )
Le sub("+-*/",randInt(1,4),1) nous donne au hasard l'une des 4 opérations.
Le tout stocké dans Str1.
(A noter qu'à ce stade, la TI traite donc le résultat de Y1 comme une chaîne)

Code: Select all

Disp Str1,expr(Str1

Affichage du calcul , et de son résultat.

[PiR]

WOWOWOWOWOWOW (bon d'accord je m'emballe)
Merci Grosged !

[Bisam]

Bravo Grosged !
J'avoue que je ne me rappelle pas avoir déjà pensé à utiliser les fonctions Y1,...,Y99 comme véritables fonctions dans un programme. Bien des perspectives se réouvrent...

[Wistaro]

Pour ce qui est du renvoi au mauvais endroit lors d'une erreur, c'est plus étrange, mais cela vient certainement là encore du fait que le programme se modifie lui-même au moment de l'exécution de l'instruction "expr".

Le programme se modifie lui-même ? C'est à dire?

[Bisam]

Il ne se modifie pas réellement, mais la version en RAM du programme utilisée lors de l'exécution est modifiée pour être remplacée par celle où "expr(..." est substitué par sa valeur. C'est ce qui fait l'intérêt d'un langage interprété par opposition à un langage compilé : il peut modifier son propre code au moment de l'exécution.

[Wistaro]

Ok, merci de l'info !

[PiR]

Grosged, avec ta méthode, comment je fais pour avoir des chiffres>10 ?

[grosged]

Au delà de 10 ?..
Hmm, pour cela, il va falloir revoir un peu ma "copie" :

Code: Select all

"0123456789→Str0
"sub(Str0,X+1,1→Y1

randInt(1,99→A
Y1(10fPart(.1A
If A>9:Y1(int(.1A))+Ans
Ans→Str1

randInt(1,99→B
Y1(10fPart(.1B
If B>9:Y1(int(.1B))+Ans

Str1+sub("+-*/",randInt(1,4),1)+Ans→Str1
Disp Str1,expr(Str1


On peut aussi mettre cette partie en sous-programme (avec ,en retour, le nombre contenu dans Ans ,sous forme de chaîne)

Code: Select all

randInt(1,99→A
Y1(10fPart(.1A
If A>9:Y1(int(.1A))+Ans

[PiR]

cool merci