La Question du Dimanche (II) !

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3400
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

La Question du Dimanche (II) !

Message par C.Ret »

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 :

.
QDD_1.png
QDD_1.png (124.45 Kio) Vu 5850 fois
.
QDD_2.png
QDD_2.png (212.45 Kio) Vu 5850 fois
.

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.
Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1602
Enregistré le : 27 oct. 2010 20:46

Re: La Question du Dimanche (II) !

Message par Gilles59 »

Bonjour !

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
Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6167
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: La Question du Dimanche (II) !

Message par Marge »

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). :wink:
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é.
Avatar du membre
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4641
Enregistré le : 31 oct. 2006 15:08
Localisation : 67310 Westhoffen
Contact :

Re: La Question du Dimanche (II) !

Message par pir2 »

Je ne dirai pas, mais j'ai trouvé, pour une fois :)
Image
Image
Avatar du membre
bernouilli92
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5217
Enregistré le : 21 nov. 2012 13:03
Localisation : Ile de France

Re: La Question du Dimanche (II) !

Message par bernouilli92 »

C'est plutôt facile cette fois.
Ma version pour hp48 fait 112 octets. On doit sûrement pouvoir faire mieux.
HP, Casio, Sharp, Psion, quelques TI et divers autres
Avatar du membre
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5622
Enregistré le : 26 mars 2009 13:07
Localisation : Ile de France
Contact :

Re: La Question du Dimanche (II) !

Message par ledudu »

Salut
Marge a écrit : 07 janv. 2018 19:15 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). :wink:
Si mais tu dois mettre les nombres dans le bon ordre pour qu’il reconnaisse la série...
Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1549
Enregistré le : 21 août 2016 19:04

Re: La Question du Dimanche (II) !

Message par Ben »

Comme quoi, il ne faut pas toujours chercher trop loin :-/

Je fais 101 pas sur le Sharp PC-1211
Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6167
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: La Question du Dimanche (II) !

Message par Marge »

ledudu a écrit : 07 janv. 2018 22:06 Salut
Marge a écrit : 07 janv. 2018 19:15 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). :wink:
Si mais tu dois mettre les nombres dans le bon ordre pour qu’il reconnaisse la série...
Ouais, c'était le piège du piège du dimanche... ;)

Toujours pas compris, mais pas cherché non plus, j'étais dans les brochettes. :D
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é.
Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1602
Enregistré le : 27 oct. 2010 20:46

Re: La Question du Dimanche (II) !

Message par Gilles59 »

Ma petite solution HP50g + lib ListExt ( voir https://www.hpcalc.org/details/7971 )

Code : Tout sélectionner

« DO DUP I→NL ∏LIST UNTIL DUP 9 ≤ END »
Un bon exemple pour l'article que je veux écrire sur l'excellente bibliothèque "ListExt"
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
Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1549
Enregistré le : 21 août 2016 19:04

Re: La Question du Dimanche (II) !

Message par Ben »

Gilles59 a écrit : 08 janv. 2018 12:57 Ma petite solution HP50g + lib ListExt ( voir https://www.hpcalc.org/details/7971 )

Code : Tout sélectionner

« DO DUP I→NL ∏LIST UNTIL DUP 9 ≤ END »
Un bon exemple pour l'article que je veux écrire sur l'excellente bibliothèque "ListExt"
Quand on ne connaît pas le langage (comme moi), c'est pas facile de comprendre ce que ça fait
Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1549
Enregistré le : 21 août 2016 19:04

Re: La Question du Dimanche (II) !

Message par Ben »

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
Avatar du membre
bernouilli92
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5217
Enregistré le : 21 nov. 2012 13:03
Localisation : Ile de France

Re: La Question du Dimanche (II) !

Message par bernouilli92 »

Et avec du RPL de base sans aucun outil :

Code : Tout sélectionner

<<
  WHILE DUP 9 >
  REPEAT
    DUP 1 
    WHILE OVER 9 >
    REPEAT
      OVER 10 MOD * 
      SWAP 10 / FLOOR SWAP
    END
    *
  END
>>
Taille baissée à 96 octets en remplaçant 10 >= par 9 >
HP, Casio, Sharp, Psion, quelques TI et divers autres
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3400
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: La Question du Dimanche (II) !

Message par C.Ret »

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 :lol:


@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.
Avatar du membre
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4641
Enregistré le : 31 oct. 2006 15:08
Localisation : 67310 Westhoffen
Contact :

Re: La Question du Dimanche (II) !

Message par pir2 »

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 ;)
Image
Image
Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1549
Enregistré le : 21 août 2016 19:04

Re: La Question du Dimanche (II) !

Message par Ben »

En optimisant un peu, je suis descendu à 90 pas. Tout en gardant, je trouve, une lisibilité du programme
Répondre

Retourner vers « Tous les Pockets »