Forum

Bonjour, La machine trouve que 196 est le premier nombre pour lequel on ne trouve pas un palindrome en 100 itérations ou moins. Temps : 69 secondes. Le suivant est 295 (dont le centième itéré est 4.475777 .10^47 : 6 tranches de 8 chiffres). Le temps de calcul augmente assez vite... G.E. Mais ne pas...

gege a écrit :Bonjour,
j'ai bien trouvé 196 sur Graph 85, en quelques minutes.

Qu'as-tu trouvé ?
Sachant qu'il n'y a pas de palindrome trouvé sur la première centaine de millions d'itérations.

10 INPUT "N=";N$: S$=N$: N%=0 15 DO : REM ******* Boucle principale 20 : A$=S$: L%=LEN(A$): C%=0: S$="" 25 : B$="": FOR I=1 TO L%: B$=MID$(A$,I,1)+B$: NEXT I : REM * * * Inversion de A$ dans B$ 30 : IF A$=B$ AND N%>0 THEN EXIT 35 : FOR I=1 TO L% : REM * * * Sommation S$=A$ + B$ 40 : : S%=C%+VAL(MID...

Pour la plupart des nombres entiers après quelques itérations on obtient un palindrome : un nombre qui écrit à l’envers est identique à lui-même. Mais certains nombres résistent et ne semblent pas générer de palindrome: les nombres de Lychrel… trouvez le premier d’entre eux (le plus petit). En fait...

Maintenant : vol=949 alt=966616035460 Temps : 32,48s ! Soit un gain de 33 %... Et encore, là c'est un code optimiser pour rechercher pour un seul nombre ! Imaginons maintenant que l'on veuille lister les temps de vol et altitudes des nombre entre 900 et 950 ! Combien de secondes ? Voui, c'est une p...

J'ai remis la main sur quelques "vieilles" notes et sur ULAM(63728127)=949, ça se faisait en 49s avec un algo pas optimisé. Maintenant : vol=949 alt=966616035460 Temps : 32,48s ! Soit un gain de 33 %... Ça me donne envie de reprendre les autres bécanes et de faire des tests (et ensuite de sûrement s...

Une petite optimisation de plus avant d'aller dormir : 10 S=0 @ A=0 @ INPUT 'Nombre : ';N @ T=TIME @ CFLAG MATH 15 IF N=1 THEN 40 20 IF NOT MOD(N,2) THEN N=N/2 @ S=S+1 @ GOTO 15 30 N=(N*3+1)/2 @ S=S+2 @ A=MAX(A,N) @ IF FLAG(INX) THEN 50 ELSE 20 40 T=TIME-T @ PRINT 'Vol : ';S;' Alt : ';A*2;' Tps : '...

10 S=0 @ A=0 @ INPUT 'Nombre : ';N @ T=TIME @ CFLAG MATH 20 IF N=1 THEN 40 ELSE IF NOT(MOD(N,2)) THEN N=N/2 @ S=S+1 @ GOTO 20 30 N=(N*3+1)/2 @ S=S+2 @ A=MAX(A,N) @ IF FLAG(INX) THEN 50 ELSE 20 40 T=TIME-T @ PRINT 'Vol : ';S;' Alt : ';A*2;' Tps : ';T @ END 50 PRINT 'Depassement capacite' J'ai modifi...

Bon, je viens de faire le test sur ma 71b réelle : 12,92 s...
Fréquence du CPU : 638,48 kHz (merci pour tes infos zpalm !).

Je suis à 2 doigts de battre le record du 110 m haies
En tout cas, elle carbure ma petite... Ça me rassure...

Sur EMU71 avec l'option "Authentic Calculator Speed" j'obtient 13.03 s pour N=77031. Pour moi : Vol : 350 Alt : 21933016 Temps : 13.17 (sur un Netbook qui rame... Normal). Sur mon HP 71B: 13.1 s , pile entre les deux émulations. Impressionnant ! Je serais bien curieux de savoir comment c'est codé d...

En prenant compte tes modifs (attention à la ligne 30, il faut bien A=MAX(A,N*2)) : Pas forcément, on peut déporter la multiplication par 2 à la ligne 40 pour éviter de la faire dans la boucle (ce que j'avais fait sans le dire dans mon exemple...). Sur EMU71 avec l'option "Authentic Calculator Spee...

Sur le HP 71B tu peux détecter le dépassement de capacité avec le flag INX qui correspond à l'exception "résultat inexact" du standard IEEE 754, par ex: 10 S=0 @ A=0 @ INPUT 'Nombre : ';N @ T=TIME @ CFLAG MATH 20 IF N=1 THEN 40 ELSE IF MOD(N,2)=0 THEN N=N/2 @ S=S+1 @ GOTO 20 30 N=(N*3+1)/2 @ S=S+2 ...

Un copain a eu recours à Internet et son fer à souder pour 1 condo cramé.
Coût : 50 cts.
Chez le réparateur : 200 roros (changement de carte)

Le condensateur est un composant dont on maîtrise totalement sa durée de vie. Et chez Samsung, c'est une maladie...

Yes, jusqu'à vendredi...
Joie !

Et c'est en testant qu'on se rend compte qu'on fait n'importe quoi ! Le positionnement du contrôle de limite est désormais incorrect et en inversant le contrôle de parité, c'est mieux et plus rapide ! Pour ULAM(77031) j'obtiens Vol : 350 Alt : 21933016 Temps : 13.92 Le code optimisé (à force, j'en d...