La recherche a retourné 420 résultats

par caloubugs
15 nov. 2014 22:38
Forum : Tous les Pockets
Sujet : Défi Turing : du MPO à la pelle
Réponses : 39
Vues : 10213

Défi Turing : du MPO à la pelle

Je suis inscrit dans une sympathique compétition de petits programmes à monter pour répondre à des énigmes mathématiques. Défi Turing http://www.apprendre-en-ligne.net/turing/index.php . Certains sont inaccessibles à nos vieilles compagnes (des milliards de calculs parfois) mais il y a matière à s'a...
par caloubugs
28 oct. 2014 20:09
Forum : Tous les Pockets
Sujet : Gazette N° 4 - PUBLIÉE !!!
Réponses : 138
Vues : 35155

Re: Gazette N° 4 - PUBLIÉE !!!

Il me semble que les tirages de nombres se font sur 24 plaques : les nombres de 1 à 10 ont 2 plaques et les autres (25, 50, 75, 100) une seule (sur mes souvenir de gosse mais wikipedia me l'a confirmé). Sinon, good luck à tous... Vu les algos qui trainent sur le net... Et surtout les possibilités (t...
par caloubugs
21 oct. 2014 22:41
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°53 : la suite de Syracuse
Réponses : 139
Vues : 47339

Re: Misez p'tit Optimisez n°53 : la suite de Syracuse

Je suis curieux d'apprendre combien de secondes met une HP-48 pour déterminer le vol de 77031 avec ces deux versions. Surprise !! Le premier met 5,21 s sur une HP48G et le second 8,04 s !! Et pourquoi tant de différence ? Il manque toutefois le contrôle de dépassement de capacité afin de s'assurer ...
par caloubugs
17 oct. 2014 20:06
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°53 : la suite de Syracuse
Réponses : 139
Vues : 47339

Re: Misez p'tit Optimisez n°53 : la suite de Syracuse

Un ptit code pour la HP48 en utilisant la pile au maximum : << TICKS -> n t << 0 0 n DUP WHILE 1 > REPEAT DUP IF 2 MOD THEN 3 * 1 + 2 / SWAP 2 + SWAP DUP IF 5,E11 >= THEN 3 DROPN 0 0 0 END DUP 4 ROLL MAX ROT ROT ELSE 2 / SWAP 1 + SWAP END DUP END DROP SWAP 2 * SWAP TICKS t - B->R 81,92 / IP 100 / >>...
par caloubugs
13 oct. 2014 23:31
Forum : Tous les Pockets
Sujet : Misez p'tit, optimisez n°59 : l'équation de l'œuf.
Réponses : 75
Vues : 17602

Re: Misez p'tit, optimisez n°59 : l'équation de l'œuf.

Sans savoir si c'est la poule ou l’œuf qui fut là en premier, trouvé aussi cette équation qui parait bien simple sur : http://www.capes-de-maths.com/divers/Mystere_oeuf.pdf . Sur HP71B (est-ce bien raisonnable :mrgreen: ) 10 input 'Diametre : ';D @ print 'Volume :';(D/2)^3*5.3092 Après, en partant d...
par caloubugs
19 juin 2014 13:26
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°57 : palindromes
Réponses : 40
Vues : 15480

Re: Misez p'tit Optimisez n°57 : palindromes

Mais ne pas trouver en 100 itérations ne veut pas dire qu'il n'y en a pas un plus loin, ça ne prouve rien... :? . En fait faire 50 millions d'itérations ne prouve rien non plus. Je n'ai pas dis le contraire : que ce soit en 10 ou 10 milliards : ne pas trouver n'est pas une preuve. Je me suis mal ex...
par caloubugs
17 juin 2014 21:03
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°57 : palindromes
Réponses : 40
Vues : 15480

Re: Misez p'tit Optimisez n°57 : palindromes

Je préfère, et de loin, cette seconde version plus rationnelle et qui finit ce qu'elle commence: 10 INPUT "N=";N$: S$=N$: N%=0 15 DO : REM ******* Boucle principale 20 : A$=S$: L%=LEN(A$): C%=0: S$="": P%=N% 25 : FOR I=1 TO L% : REM **** Boucle Sommation/Detection Palindrome 30 : : A%=VAL(MID$(A$,I...
par caloubugs
17 juin 2014 20:23
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°57 : palindromes
Réponses : 40
Vues : 15480

Re: Misez p'tit Optimisez n°57 : palindromes

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...
par caloubugs
17 juin 2014 07:49
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°57 : palindromes
Réponses : 40
Vues : 15480

Re: Misez p'tit Optimisez n°57 : palindromes

gege a écrit :Bonjour,
j'ai bien trouvé 196 sur Graph 85, en quelques minutes.
Qu'as-tu trouvé ? 8O
Sachant qu'il n'y a pas de palindrome trouvé sur la première centaine de millions d'itérations.
par caloubugs
16 juin 2014 23:22
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°57 : palindromes
Réponses : 40
Vues : 15480

Re: Misez p'tit Optimisez n°57 : palindromes

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...
par caloubugs
16 juin 2014 20:59
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°57 : palindromes
Réponses : 40
Vues : 15480

Re: Misez p'tit Optimisez n°57 : palindromes

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...
par caloubugs
14 juin 2014 19:08
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°53 : la suite de Syracuse
Réponses : 139
Vues : 47339

Re: Misez p'tit Optimisez n°53 : la suite de Syracuse

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...
par caloubugs
14 juin 2014 12:46
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°53 : la suite de Syracuse
Réponses : 139
Vues : 47339

Re: Misez p'tit Optimisez n°53 : la suite de Syracuse

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...
par caloubugs
14 juin 2014 09:55
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°53 : la suite de Syracuse
Réponses : 139
Vues : 47339

Re: Misez p'tit Optimisez n°53 : la suite de Syracuse

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 : '...
par caloubugs
13 juin 2014 23:09
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°53 : la suite de Syracuse
Réponses : 139
Vues : 47339

Re: Misez p'tit Optimisez n°53 : la suite de Syracuse

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...

Aller sur la recherche avancée