Calcul de factorielle, avec les chiffres significatifs

→ **MyCalcs** profile · by **grosged** » 07 Mar 2014, 20:38

Je suis d'accord avec le fait qu'utiliser des valeurs précalculées, dans un concours , c'est risqué ! ça peut même parfois jouer en notre défaveur...(c'est d'ailleurs pour ça que j'ai pas osé en utiliser pour "la suite du geek")
A propos de l'algo, si j'ai une autre idée "flash", j'en jèterai un mot !

oui l'idée de max()... ou alors un nettoyage d'office de L1 "tous les 6 passages" (puisque un terme l1(x)<10 peut faire 6 multiplications d'affilée sans risque de dépassement, si l'on s'en tient à la limite imposée de 135!)

→ **MyCalcs** profile · by **Bisam** » 09 Mar 2014, 07:56

Je n'ai pas la 83+ (de Nikitouzz) sur moi ce matin, mais j'ai fait un petit code aussi qui ressemble à ceci (je le refais de mémoire, je le corrigerai plus tard...) :

Code: Select all: Prompt N 1->L1(1 For I,2,N Delvar R For J,1,dim(L1 R+I L1(J->L1(J ipart(Ans10^(-9->R L1(J)-R 10^(9->L1(J End If R R->L1(1+dim(L1 End dim(L1->D 9D->dim(L2 For I,D,1,-1 For J,8,0,-1 ipart(L1(I)10^(-J Ans->L2(9-J+9(D-I L1(I)-Ans 10^(J->L1(I End End Pause L2 Delvar D Delvar I Delvar J Delvar N Delvar R Delvar L1 Delvar L2

Il y a des 0 non significatifs au début du résultat affiché... mais je ne pense pas que ce soit pénalisant.
J'ai été obligé de rajouter la liste L2 sinon, même en remettant les morceaux de L1 dans le bon ordre, on peut perdre des 0 au début des nombres qui sont dans la liste L1.
Le principe est de découper le calcul en tranches de 9 chiffres (on peut faire plus... mais on ne gagne pas grand chose en temps, et on perd en place !) La partie la plus longue en place est l'affichage final !

→ **MyCalcs** profile · by **Lionel Debroux** » 09 Mar 2014, 08:49

En effet, pas de table de valeurs précalculées pour la suite du geek

→ **MyCalcs** profile · by **grosged** » 15 Mar 2014, 18:56

Bonsoir !
Voici ma version du sujet =D
Pour optimiser, je me suis dit de calculer par à-coup (paquets de 6), et aussi
de déchiffrer/ajuster les résultats intermédiaires en plaçant les chiffres
"de gauche à droite" (donc à partir de L1(1...)
(c'est pour cette raison que le résultat final doit être affiché depuis le dernier élement
de L1 vers le premier)
à noter que ce n'est qu'à partir de 12! que l'on aura un affichage "1chiffre/élement"
L'avantage de tout ça ? ça calcule ,par exemple, 135! en 86 secondes sur ma TI-83 (6mhz)

Edit: au delà de 135! ça risque fortement de bugger...

Code: Select all: ClrAllLists ;efface toutes les listes Prompt N ;demande N N-6iPart(N/6-1→A ;on va traiter par paquets de 6 Ans!→L1(1 ;maintenant qu'on a (x-1)! dans L1, For(X,A+1,N-5,6 ;par ''paquets de six", on L1X(X+1)(X+2)(X+3)(X+4)(X+5→L1 ;multiplie L1 par x(x+1)(x+2)(x+2)(x+3)(x+4)(x+5 Delvar Z ; initialise et For(Y,1,dim(L1 ; lance la transformation "un chiffre par élement" .1(iPart(Z)+L1(Y→Z ; on ne garde que les unités 10fPart(Ans→L1(Y ; et ajoute le restant (partie entière/10) End ; à l'élément voisin, etc... While int(Z ; on est arrivé au bout de L1 .1iPart(Z→Z ; mais c'est pas fini : on continue d'étaler 10fPart(Ans→L1(Y ; "chiffre après chiffre" sur L1 Y+1→Y ; et ce, jusqu'à ce qu'il ne reste que des unités End ; fin de boucle End ; fin de boucle seq(L1(X),X,dim(L1),1,-1 ; affiche le résultat "en miroir"