La Question du Dimanche (II) !
Modérateur : Politburo
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3422
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
La Question du Dimanche (II) !
Afin de poursuivre l'excellente idée de notre ami Marge et comme nous sommes justement dimanche, je me permets, à mon tour, de poser également une question dominicale.
Voilà mon SHARP PC-1211 vient de finir d'imprimer ces deux listings :
. . .
A quoi correspond ces deux suites de nombres et quelle sera la séquence qu'il imprimera lorsque je lui donnerai 6'178'791'812 comme argument initial ?
[/size]
Comme le veut la règle établie, je ne donnerai la réponse que la semaine prochaine, sauf si bien entendu, tout le monde trouve bien avant.
Voilà mon SHARP PC-1211 vient de finir d'imprimer ces deux listings :
. . .
A quoi correspond ces deux suites de nombres et quelle sera la séquence qu'il imprimera lorsque je lui donnerai 6'178'791'812 comme argument initial ?
[/size]
Comme le veut la règle établie, je ne donnerai la réponse que la semaine prochaine, sauf si bien entendu, tout le monde trouve bien avant.
Modifié en dernier par C.Ret le 22 avr. 2019 22:10, modifié 1 fois.
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Re: La Question du Dimanche (II) !
Bonjour !
Je n'en dirai pas plus mais ma HP50g me dit :
6178791812
338688
27648
2688
768
336
54
20
0
Je n'en dirai pas plus mais ma HP50g me dit :
6178791812
338688
27648
2688
768
336
54
20
0
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
- Marge
- Fonctionne à 14400 bauds
- Messages : 6190
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: La Question du Dimanche (II) !
Bonjour,
Je ne connais pas la réponse, mais en tout cas : bravo ! la série n'est pas identifiable ici (le piège du dimanche).
Je ne connais pas la réponse, mais en tout cas : bravo ! la série n'est pas identifiable ici (le piège du dimanche).
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- bernouilli92
- Fonctionne à 14400 bauds
- Messages : 5270
- Enregistré le : 21 nov. 2012 13:03
- Localisation : Ile de France
Re: La Question du Dimanche (II) !
C'est plutôt facile cette fois.
Ma version pour hp48 fait 112 octets. On doit sûrement pouvoir faire mieux.
Ma version pour hp48 fait 112 octets. On doit sûrement pouvoir faire mieux.
HP, Casio, Sharp, Psion, quelques TI et divers autres
- ledudu
- Fonctionne à 14400 bauds
- Messages : 5646
- Enregistré le : 26 mars 2009 13:07
- Localisation : Ile de France
- Contact :
Re: La Question du Dimanche (II) !
Salut
Si mais tu dois mettre les nombres dans le bon ordre pour qu’il reconnaisse la série...
Re: La Question du Dimanche (II) !
Comme quoi, il ne faut pas toujours chercher trop loin :-/
Je fais 101 pas sur le Sharp PC-1211
Je fais 101 pas sur le Sharp PC-1211
- Marge
- Fonctionne à 14400 bauds
- Messages : 6190
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: La Question du Dimanche (II) !
Ouais, c'était le piège du piège du dimanche...
Toujours pas compris, mais pas cherché non plus, j'étais dans les brochettes.
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Re: La Question du Dimanche (II) !
Ma petite solution HP50g + lib ListExt ( voir https://www.hpcalc.org/details/7971 )
Un bon exemple pour l'article que je veux écrire sur l'excellente bibliothèque "ListExt"
Code : Tout sélectionner
« DO DUP I→NL ∏LIST UNTIL DUP 9 ≤ END »
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
Re: La Question du Dimanche (II) !
Quand on ne connaît pas le langage (comme moi), c'est pas facile de comprendre ce que ça faitGilles59 a écrit : ↑08 janv. 2018 12:57 Ma petite solution HP50g + lib ListExt ( voir https://www.hpcalc.org/details/7971 )
Un bon exemple pour l'article que je veux écrire sur l'excellente bibliothèque "ListExt"Code : Tout sélectionner
« DO DUP I→NL ∏LIST UNTIL DUP 9 ≤ END »
Re: La Question du Dimanche (II) !
En Basic sur pocket
Code : Tout sélectionner
10 input a:d=0:print a
20 c=1
30 b=int(a/10):b=a-b*10:a=int(a/10):c=c*b
40 if a<>0 then 30
50 print c:a=c:d=d+1:if c>10 then 20
60 print "p=";d
- bernouilli92
- Fonctionne à 14400 bauds
- Messages : 5270
- Enregistré le : 21 nov. 2012 13:03
- Localisation : Ile de France
Re: La Question du Dimanche (II) !
Et avec du RPL de base sans aucun outil :
Taille baissée à 96 octets en remplaçant 10 >= par 9 >
Code : Tout sélectionner
<<
WHILE DUP 9 >
REPEAT
DUP 1
WHILE OVER 9 >
REPEAT
OVER 10 MOD *
SWAP 10 / FLOOR SWAP
END
*
END
>>
HP, Casio, Sharp, Psion, quelques TI et divers autres
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3422
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: La Question du Dimanche (II) !
Je vois que tout le monde trouve assez facilement.
Il faut dire qu'avec les excès fait lors de fêtes de fin d'année, j'ai eut du mal à évaluer la difficulté, et surtout je me suis restreint, j'ai eut du mal, l'idée initiale était de compliquer les choses en ne donnant qu'une partie des informations.
J'ai eut trop peur de me planter
Pour ceux qui découvrent ce fil et qui n'ont pas encore trouvé, je les invite à persister et à multiplier les efforts
@Marge
Et oui, si piège il y a , j'adore cette façon de faire croire que l'on a pas trouvé, justement sur l'un des site qui permet de facilement trouver !!
Excellent.
Surtout que justement la conjecture sous-jaçante à ces séries fut le déclencheur de ce type de site de référence, notamment par Neil Sloane !
@pir2
Comment-ça pour une fois ? J'espère bien que ce n'est pas pour une seule fois.
L'important n'est pas de trouver, mais de s'enrichir de la découverte et des découvertes des autres ! ... à chaque fois.
@bernouilli92
C'est justement une de mes (trop) nombreuses résolutions pour cette nouvelle année, ne plus faire de choses compliquées.
Pour info, le code qui a imprimé ces deux listings fait 75 octets. Je le publierai dimanche prochain, il suit le même algorithme que les codes RPL et BASIC ci-dessus.
P.S.: Mon code pour HP-28S est plus court car il s'autorise une instruction LAST et une boucle DO UNTIL avec test implicite. Je viens de terminer une version pour HP-41C utilisant le registre Alpha (29 pas) et une version pour HP15C utilisant les fonctions matricielles (45 pas)
@ledudu
Après avoir lu la réponse de Marge à ton message, j'ai comme un doute. Est-il encore en train de chercher ?
@ben
101 pas sur SHARP PC-1211 c'est un bon début, mais il faut persister, multiplier l'optimisation pour miser petit.
D'ailleurs, je trouve que cette Question du Dimanche ressemble de plus en plus à un M.P.O. déguisé.
En tout cas, dans le code donné, il y a tous les éléments apparaissant aussi dans le mien. Il est plus long car il manque quelques petites choses en plus comme des multiplications implicites, des sauts calculés et une structure en trois lignes.
Moi aussi, j'ai un PRINT "P=";P . C'est important car cela donne un bon indice. Quoi que j'aurais pû, pour un octet, de plus mettre un PRINT "PM=";P
@Gilles59
En voyant la série 6178791812 338688 27648 2688 768 336 54 20 0 j'étais sûr qu'il y avait du ∏LIST là-dedans.
J'ai hâte de pouvoir lire l'article pour me faire une idée de c'que fait l'instruction italiano-néerlandaise I→NL.
@ tous le autres lecteurs
Surtout ne perdez pas de temps en conjecture, persistez et multipliez les efforts...
Il faut dire qu'avec les excès fait lors de fêtes de fin d'année, j'ai eut du mal à évaluer la difficulté, et surtout je me suis restreint, j'ai eut du mal, l'idée initiale était de compliquer les choses en ne donnant qu'une partie des informations.
J'ai eut trop peur de me planter
Pour ceux qui découvrent ce fil et qui n'ont pas encore trouvé, je les invite à persister et à multiplier les efforts
@Marge
Et oui, si piège il y a , j'adore cette façon de faire croire que l'on a pas trouvé, justement sur l'un des site qui permet de facilement trouver !!
Excellent.
Surtout que justement la conjecture sous-jaçante à ces séries fut le déclencheur de ce type de site de référence, notamment par Neil Sloane !
@pir2
Comment-ça pour une fois ? J'espère bien que ce n'est pas pour une seule fois.
L'important n'est pas de trouver, mais de s'enrichir de la découverte et des découvertes des autres ! ... à chaque fois.
@bernouilli92
C'est justement une de mes (trop) nombreuses résolutions pour cette nouvelle année, ne plus faire de choses compliquées.
Pour info, le code qui a imprimé ces deux listings fait 75 octets. Je le publierai dimanche prochain, il suit le même algorithme que les codes RPL et BASIC ci-dessus.
P.S.: Mon code pour HP-28S est plus court car il s'autorise une instruction LAST et une boucle DO UNTIL avec test implicite. Je viens de terminer une version pour HP-41C utilisant le registre Alpha (29 pas) et une version pour HP15C utilisant les fonctions matricielles (45 pas)
@ledudu
Après avoir lu la réponse de Marge à ton message, j'ai comme un doute. Est-il encore en train de chercher ?
@ben
101 pas sur SHARP PC-1211 c'est un bon début, mais il faut persister, multiplier l'optimisation pour miser petit.
D'ailleurs, je trouve que cette Question du Dimanche ressemble de plus en plus à un M.P.O. déguisé.
En tout cas, dans le code donné, il y a tous les éléments apparaissant aussi dans le mien. Il est plus long car il manque quelques petites choses en plus comme des multiplications implicites, des sauts calculés et une structure en trois lignes.
Moi aussi, j'ai un PRINT "P=";P . C'est important car cela donne un bon indice. Quoi que j'aurais pû, pour un octet, de plus mettre un PRINT "PM=";P
@Gilles59
En voyant la série 6178791812 338688 27648 2688 768 336 54 20 0 j'étais sûr qu'il y avait du ∏LIST là-dedans.
J'ai hâte de pouvoir lire l'article pour me faire une idée de c'que fait l'instruction italiano-néerlandaise I→NL.
@ tous le autres lecteurs
Surtout ne perdez pas de temps en conjecture, persistez et multipliez les efforts...
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
- pir2
- Fonctionne à 9600 bauds
- Messages : 4647
- Enregistré le : 31 oct. 2006 15:08
- Localisation : 67310 Westhoffen
- Contact :
Re: La Question du Dimanche (II) !
Oh, le "pour une fois", c'est que j'avais un peu de temps pour chercher, j'ai même écrit "à l'aveugle" un programme pour ma 41 ... mais les piles sont vides
Re: La Question du Dimanche (II) !
En optimisant un peu, je suis descendu à 90 pas. Tout en gardant, je trouve, une lisibilité du programme