Des chiffres!! :D

[maestroarte]

Re Excale (Désolé du retard, je n'avais plus internet)
Alors,
Je ne sais pas si vous avez très bien compris ce que je voulais (d'ailleurs, à l'écriture du post je ne le savais pas moi-même!)
Maintenant j'en suis sur et certain:
Vous connaissez surement l'émission des chiffres et des lettres.
Je voudrais un programme en TI Basic qui résolve la partie "chiffre" de l'émission.
Les candidats disposent de 6 chiffres et doivent obtenir un résultat final en UTILISANT qu'une fois les chiffres, mais peuvent utiliser un même opérateur plusieurs fois ! (opérateurs utilisés: + / - * )
Par exemple, dans cette video http://www.youtube.com/watch?v=ZpT6r6vuTik , à partir de la 3éme minutes les candidats disposent de:
10 - 5 - 25 - 6 - 1 - 2
et doivent trouver 362
Une des réponses possibles trouvées à la fin du temps réglementaire était:
((10+5)*25) - (6*2 + 1) = 375 - 13 = 362

Beaucoup de possibilités de calcul sont enviseageables, je me pose alors deux questions:
- 1) Est-ce que la TI NSpire CX CAS doit aboutir à cette démarche par hasard ? c'est à dire elle va tester une à une toutes les possibilités de calcul avec ces chiffres là ... Est-ce que c'est plus long que le temps réglementaire malgré la capacité de calcul de la calto ? Est même, quel est le code a écrire pour envisager TOUTES les possibilités et les faire calculer une à une à la calto? Ne serait-ce pas possible de les éléminer unes à unes une fois qu'elles ont été testées, ou c'est impossible en langage TI BASIC ? (histoire que la calto ne fasse pas deux fois le même calcul, est donc qu'elle gagne du temps ...)

-2) Est-il possible rendre le programme intelligent?? C'est à dire qu'il va utiliser des chiffres pour s'approcher le plus de résultat demandé (ex: ici (10+5)*25) pour ensuite "ajuster" le reste avec les autres nombres disponibles ... ??

Enfin, ce programme me parait quand même assez utopique =/ ...

Et sinon Excale, je ne connais la fonction expr(b[1]&a[1]&b[2]&a[2]&b[3]&a[3]&b[4]&a[4]&b[5]) ^^'

Merci

[Levak]

Alors là ... le problème est plus de comment le faire sur papier, on en reparlera après pour le faire sur calculatrice

edit : est visiblement, les liens affluent si on cherche "le compte est bon" au lieu de "des chiffres et des lettres"
exemple : http://le.compte.est.bon.free.fr/Algo.htm

[maestroarte]

2 764 800 opérations arithmétiques. :O ok! le compte est bon!

[Bisam]

J'ai quelque part un algorithme écrit en Maple qui fait le tirage aléatoire et qui recherche toutes les solutions et les affiche.
Si ça vous intéresse, j'irai le chercher dans mes archives...

[Adriweb]

J'avais fait ca en Bash et en ti-basic, il fut un temps

[maestroarte]

Adriweb, ce genre de programme est faisable en basic??
Et sinon, si on peut avec le code Maple "trouver" le code en TI Basic (ou du moins le déduire), je veux bien voir le script

Merci!!

[Levak]

Et sinon, si on peut avec le code Maple "trouver" le code en TI Basic (ou du moins le déduire), je veux bien voir le script

Ahem, ton cerveau ?


















[me]je suis déjà loin t'inquiètes[/me]

[Bisam]

Le voici.
Ce n'est pas très beau mais ça marche...
C'est adaptable en TI Basic... mais j'ai peur que ce soit lent pour la calculatrice...
Voici de quoi faire un tirage :

Code: Select all

tirage:=proc()
local l,i,n,liste,total:
l:=[1,2,3,4,5,6,7,8,9,10,25,50,75,100]:
liste:=[]:
n:=nops(l);
for i from 1 to 6 do
j:=mod(rand(),n-i)+1;
liste:=[op(liste),l[j]];
l:=[op(l,1..j-1),op(l,j+1..n-i)];
od:
return [liste,mod(rand(),900)+100];
end;

Une fonction pour afficher les calculs intermédiaires :

Code: Select all

ecrire:=proc(operation,n1,n2)
if operation=1 then printf("%d%s%d=%d ",n1,"*",n2,n1*n2) fi;
if operation=2 then printf("%d%s%d=%d ",n1,"+",n2,n1+n2) fi;
if operation=3 then printf("%d%s%d=%d ",n1,"-",n2,n1-n2) fi;
if operation=4 then printf("%d%s%d=%d ",n1,"/",n2,n1/n2) fi; # ne fonctionne qu'avec des entiers
end;

et enfin la fonction récursive qui cherche la solution :

Code: Select all

Recursif:=proc(nb,plaques,total) # nb=nombre de plaques (pl1,...,pl6), total=nb à trouver
option remember; # plaques est une liste de six nombres
local ok,i,j,pl1,pl2,operation,calcul,plaquesauxiliaires;
ok:=false; # si ok=true, on a trouvé une solution sinon pas trouvé
i:=0;
while (ok=false and i<=5) do
i:=i+1;
if plaques[i]<>0 then
j:=i;
while (ok=false and j<6) do
j:=j+1;
if plaques[j]<>0 then
pl1:=max(plaques[i],plaques[j]);
pl2:=min(plaques[i],plaques[j]);
operation:=1; # 1=multiplication, 2=addition, 3=soustraction, 4=division
while (ok=false and operation<5) do
if operation=1 then calcul:=pl1*pl2 fi;
if operation=2 then calcul:=pl1+pl2 fi;
if operation=3 then calcul:=pl1-pl2 fi;
if operation=4 then
if (pl2<>1 and irem(pl1,pl2)=0) then calcul:=pl1/pl2 fi
fi;
if calcul=total then ok:=true;
elif (calcul<>0 and nb>1) then
plaquesauxiliaires:=plaques;
plaquesauxiliaires[i]:=calcul;
plaquesauxiliaires[j]:=0;
ok:=Recursif(nb-1,plaquesauxiliaires,total)
fi;
if ok then ecrire(operation,pl1,pl2) fi;
operation:=operation+1 # opération suivante
od;
fi;
od;
fi;
end;
ok:
end;

Ce qui fait gagner beaucoup de temps en Maple, c'est l'option "remember" qui enregistre automatiquement une liste des valeurs déjà calculées d'une fonction pour ne pas avoir à les recalculer plus tard. C'est particulièrement efficace pour les fonctions récursives susceptibles de retomber plusieurs fois sur les mêmes données comme c'est le cas ici.

[Excale]

La récursion c'est pas le fort du TI-Basic...
Sinon, dans les fonctions, on dirait qu'il y a autre chose que le code (balises...) .

[Bisam]

J'avais fait un copier-coller du fichier texte car je n'ai pas Maple sur l'ordi où je suis pour l'instant.
J'ai nettoyé ce qu'il fallait.

PS : Je précise que l'algorithme n'est pas de moi : si j'avais eu à le programmer, je n'aurais envoyé que les "plaques auxiliaires" utiles, sans les 0 et je n'aurais pas eu besoin de la balise "nb"...