Mais qu'est-ce que c'est ? KEZAKO numéro 2

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

Zebulon
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 575
Enregistré le : 28 juin 2022 10:21

Re: Mais qu'est-ce que c'est ? KEZAKO numéro 2

Message par Zebulon »

Voici une version en Python qui tourne sur la Numworks (vu mes piètres connaissances en Python je suppose que quelqu'un de plus aguerri pourra l'écrire en une ou deux lignes...):

Code : Tout sélectionner

from math import *
def scube():
  for k in range(54):
    n=k**3
    s=0
    for i in str(n):
      s=s+int(i)
    if s==k:
      print(n)
      print(s)
Aucun problème de précision puisqu'on additionne que des entiers.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Mais qu'est-ce que c'est ? KEZAKO numéro 2

Message par C.Ret »

Over_score a écrit : 04 juin 2023 20:25Il faut faire attention au N=INT N/10, qui si je traduis veut dire N = INT(N) / 10.
Et S = S - N + INT N veut dire S = S - (N - INT N) donc S moins la partie décimale de N.
Tout à fait , c'était un des pièges un peu volontairement laissés ça et là comme des oursins entre les rochers. Même si hypocritement je soutiens mordicus que ce n'est que pour économiser les maigres octets de mon pauvre Pocket Computers que j'ai omis les parenthèses. Et uniquement pour cette simple raison.
Over_score a écrit : 04 juin 2023 20:25Tout cela nous amène à la liste des k³ dont la somme des chiffres est égale à k. et il y en a seulement 7, comme les nains…
Je savais qu' Over_Score trouverai.

Mais le KEZAKO n'est pas terminé, il faut maintenant donner la liste de ces nombres et dire comment ils s'appellent. Voir aussi indiquer à quelle ligne exactement ces sept nains apparaissent dans l'encyclopédie des séquences entières.


FLISZT a écrit : 04 juin 2023 21:34Merci pour cette précision bien utile ! (en tout cas pour moi)
je suis ravi d'apprendre que ma petite économie de parenthèses (non obligatoire sur ces Pockets Computers) a piégé au moins l'un d'entrevous.
FLISZT a écrit : 04 juin 2023 21:34En revanche la suite ne m'a pas posé de problème :
Et donc je traduis sur mon X-07 : S = S - N + INT N … par… S = S - N + INT(N) … of course.
Il n'y a pas de fonction FRAC() ou FRC() sur le Canon X07 ? Car sinon, l'idée est de faire S = S - FRAC(N).
FLISZT a écrit : 04 juin 2023 21:34Bref… je crois que nous avons un vainqueur en la personne de Over_score.
27^3 bravos !
Je suis entièrement d'accord, mais je ne lui en donne qu'A peu près 61209. :wink:


Marge a écrit : 05 juin 2023 03:15 Je profite du décalage horaire, sinon hebdomadaire (voire pire) pour suggérer l’hypothèse suivante :
Ce programme est fortement relié à l’un des thèmes suggérés là : http://www.silicium.org/forum/viewtopic ... 01#p579573
Malheureusement non, j'aurai bien aimé, mais je n'est rien trouvé d'approprié la semaine dernière alors pour faire vite, j'ai pris un thème plus simple.
Mais, je ne désespère pas qu'une prochaine fois, il y aura quelque chose qui s'inspire d es sujets traité dans cette série.


Zebulon a écrit : 05 juin 2023 15:29Aucun problème de précision puisqu'on additionne que des entiers.
Je suis rassuré car les soucis de précision dont fait allusion Over_Score m'inquiétaient bigrement. Les BASIC (surtout les 8 bits des 80's) sont eux aussi, comme le C, très souvent prompts à faire des misères dans les tests et les boucle à cause des erreurs d'arrondi.

Heureusement, rien de tels dans les codes opérationnels de nos calculettes.




Par contre, ce KEZAKO tourne mal, nous n'avons toujours pas trouver le nom de ces nains, leurs définition exacte, qui les a découvert et pourquoi il n'y en a que sept ?
KEZAKO2_Fig06.gif
KEZAKO2_Fig06.gif (48.38 Kio) Vu 1503 fois
Et surtout, quel et le lien avec cette frise étrange ?
Image
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
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Mais qu'est-ce que c'est ? KEZAKO numéro 2

Message par C.Ret »

P.S.: Je vois que comme moi, beaucoup d'entrenous n'ont pu s'empêcher de composer de petits programmes sur leur machine.
KEZAKO2_Fig07.gif
KEZAKO2_Fig07.gif (92.09 Kio) Vu 1497 fois
Il y a le code en C d' Over_score, celui en (et c'est une grande première en R de FLISZT, celui en Delphi de Zebulon,...
J'étais moi-même sur le point de vous proposer un code en RPL pour HP-28S,

ne sommes-nous pas un peu comme ces cyclistes qui tournent en rond sur leur petite machine en espérant un jour se rencontrer au centre des cercles ?

Tout ces élans spontanés et certainement optimizables m'ont donné l'idée de vous préparer une surprise....
Modifié en dernier par C.Ret le 06 juin 2023 21:33, 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.
Zebulon
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 575
Enregistré le : 28 juin 2022 10:21

Re: Mais qu'est-ce que c'est ? KEZAKO numéro 2

Message par Zebulon »

FLISZT
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 655
Enregistré le : 09 mars 2022 19:14

Re: Mais qu'est-ce que c'est ? KEZAKO numéro 2

Message par FLISZT »

Sans surprise, comme Zebulon, j'ai trouvé que ce monsieur était Henry Dudeney.
Pour cela, j'ai fait une recherche par image qui m'a permit d'en savoir plus et de voir que notre ami C.Ret avait pris soin d'inverser la photo.
C'est pas bien ! Henry en était tout désorienté ! :lol:

Henry Dudeney fut un mathématicien spécialisé dans les casse-tête et les jeux numériques ainsi qu'un écrivain.
Le post de C.Ret (du 04 juin 2023 17:39), à la fin, nous montre le titre d'un de ses livres et une partie de son nom complet : Henry Ernest Dudeney.

Juste après ce post, il y a celui d'un certain FLISZT, ou un truc dans le genre, du 04 juin 2023 19:52, qui se termine par :
Un livre de 1967… ouvrez l'œil ! :wink:
Si vous avez eu la curiosité de vous intéresser à ce qui ressemble à un trait (juste au-dessus des mots "Un livre…" ),
alors vous aurez sans doute découvert qu'il s'agit d'un lien qui vous conduit directement au livre précité.
C'est ce que j'appelle « caché à la vue de tous ! ».
Ne manquez pas d'ailleurs les deux petits liens très intéressants à la fin du message de Zebulon.

Henry Ernest Dudeney a écrit d'autres livres, notamment The Canterbury Puzzles, and Other Curious Problems.
Le chapitre 26 porte le nom de "The Haberdasher's Puzzle". On voit ici un puzzle de Haberdasher.

Contrairement au tangram, qui est constitué de 7 pièces (son nom chinois - écoutez la dame :wink: - commence d'ailleurs par 七 qui veut dire 7),
le puzzle de Haberdasher est en 4 parties, comme le montre l'indice n°1. Je ne l'ai pas retrouvé sur le web. S'agit-il d'une version personnelle et colorisée de C.Ret, peut-être inspirée par ceci ?

Henry Dudeney découvrit l'existence de ces nombres (dits de Dudeney) via un de ses puzzles :
https://proofwiki.org/wiki/Henry_Ernest ... Extraction… ce qui nous conduit au MPO "surprise" n°118.

Je crois qu'il ne reste plus qu'une question en suspens :
… pourquoi il n'y en a que sept ?
Il semblerait qu'il y en ait que 6 voire seulement 5 : 0 est hors course et 1 trop « trivial » !
Je ne trancherai pas… mais Blanche-Neige va s'inquiéter !
C.Ret a écrit : 05 juin 2023 18:17 Il n'y a pas de fonction FRAC() ou FRC() sur le Canon X07 ? Car sinon, l'idée est de faire S = S - FRAC(N)
Quand j'ai vu ta remarque, je me suis dit "mais bien sûr !"…
Euh… bin non ! Y'a pas ! Ça m'a surpris. J'ai même ouvert la doc.
J'avais beau faire des PRINT FRAC(1/3) ou autres, ça me retournait toujours zéro.
Je ne sais pas, du coup, comment il interprète FRAC(1/3)… comme l'indice 0 un tableau FRAC, soit FRAC(0) ? (qui ne contient rien d'où le zéro)
Pas eu le temps de chercher…

J'ai fait un programme en R mais sur mon X-07, le programme reste à faire. C'est dur le BASIC !
Ce que je peux dire du R, que je ne commence qu'à entrevoir, est qu'il est possible de traiter le problème différement de ce que j'ai fait, grâce à ses nombreuses possibilités.
Ex. Au lieu de faire une boucle FOR de 0 à 54, on peut faire a=seq(0,54) (un peu comme l'a fait zpalm dans son "1 ligne" du MPO-118), du coup on obtient une liste a, etc.
C.Ret a écrit : 05 juin 2023 18:17
FLISZT a écrit : 04 juin 2023 21:34Bref… je crois que nous avons un vainqueur en la personne de Over_score.
27^3 bravos !
Je suis entièrement d'accord, mais je ne lui en donne qu'A peu près 61209. :wink:
Tu vois plus grand que moi ! :wink:
Bruno
Sanyo CZ-0124 ? TI-57 ? HP-15C ? Canon X-07 + XP-140 Monitor Card ? HP-41CX ? HP-28S ? HP-50G ? HP-50G
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Mais qu'est-ce que c'est ? KEZAKO numéro 2

Message par C.Ret »

@ FLIZST

Impeccable , il ne manque que deux petits détails sans importance:
  1. La frise provient du fait de la page Wikipédia anglaise de Henry Ernest Dudeney qui en est l'auteur (je ne suis pas responsable des couleurs utilisées qui ne sont pas celle des publications originales de 1903
  2. Je ne donne que A061209 bravo à Over_score car c'est exactement le numéro de référence de la séquence OEIS.
Sinon,
Que vous êtes joli ! que vous me semblez beau !
Sans mentir, si votre ramage
Se rapporte à votre plumage,
Vous êtes le Phénix des hôtes de ces bois.
car je n'aurais pas su faire mieux que ce dernier post pour résumer et conclure la seconde édition du Kézako.


@ tous;
Vivement le prochain Kézako promis par marge.
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.
Répondre

Retourner vers « Tous les Pockets »