La Question du Dimanche (II) !

[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 (124.45 Kio) Consulté 2593 fois

.

QDD_2.png (212.45 Kio) Consulté 2593 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.

[Gilles59]

Bonjour !

Je n'en dirai pas plus mais ma HP50g me dit :

6178791812
338688
27648
2688
768
336
54
20
0

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

[pir2]

Je ne dirai pas, mais j'ai trouvé, pour une fois

[bernouilli92]

C'est plutôt facile cette fois.
Ma version pour hp48 fait 112 octets. On doit sûrement pouvoir faire mieux.

[ledudu]

Salut

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

Si mais tu dois mettre les nombres dans le bon ordre pour qu’il reconnaisse la série...

[Ben]

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

Je fais 101 pas sur le Sharp PC-1211

[Marge]

Salut

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

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.

[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"

[Ben]

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]

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]

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 >

[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


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

[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

[Ben]

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