Misez p'tit, Optimisez - N°85 (L'Algorithme de Kaprekar)

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
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7141
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: Misez p'tit, Optimisez - N°85 (L'Algorithme de Kaprekar)

Message par gege »

C.Ret a écrit :Comme maintenant j'ai mon propre HP-71B, je peux tester à loisir ses possibilités
Bonne idée, je crois qu'il y a des trucs sur cette machine dans la Gazette.
Ca m'intéresserait d'avoir ton avis !
G.E.
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: Misez p'tit, Optimisez - N°85 (L'Algorithme de Kaprekar)

Message par C.Ret »

gege a écrit : 02 janv. 2021 01:27
C.Ret a écrit :Comme maintenant j'ai mon propre HP-71B, je peux tester à loisir ses possibilités
Bonne idée, je crois qu'il y a des trucs sur cette machine dans la Gazette.
Ca m'intéresserait d'avoir ton avis !
G.E.
Malheureusement, bien qu'ayant une interface HP-IL sur mon tout récent HP-71B, je n'ai pas (encore) de quoi l'exploiter.

Mais, il y a de nombreux autres sujets lus dans la Gazette n°13 qui m'ont (pré)occupés ces derniers jours !
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: Misez p'tit, Optimisez - N°85 (L'Algorithme de Kaprekar)

Message par Gilles59 »

C.Ret a écrit : 01 janv. 2021 21:57
Je ne suis pas un spécialiste du New-RPL, qui me semble être une bonne évolution du user-RPL, mais il me semble qu'il manque une instruction →UTF8 qui a dû se perdre en recopiant ton code :

Je donne ci-dessous mon interprétation de ton code New-RPL à partir de l'exemple numérique issu de 9452 ;

Code : Tout sélectionner

CODE:         STACK:                                     COMMENTS:
«                                   1:          9452       Argument initial
  →STR                              1:         "9452"
  UTF8→                             1: { 57 52 53 50 }     Mise sous forme de liste de l'argument 
  SORT                              1: { 50 52 53 57 }     Toute la beauté de la méthode basée sur un tri !!
  DUP         2: { 50 52 53 57 }    1: { 50 52 53 57 }
  REVLIST     2: { 50 52 53 57 }    1: { 57 53 52 50 }     Toute l'astuce de l'inversion !!  
  →UTF8       2: { 50 52 53 57 }    1:         "9542"
  STR→        2: { 50 52 53 57 }    1:          9542       Remise en format numérique de D (ordre décroissant)
  SWAP        2:          9542      1: { 50 52 53 57 }
**→UTF8*******2:**********9542******1:*********"2459"**    * instruction qui semble faire défaut * * * * * * * 
  STR→        2:          9542      1:          2459       Remise en format numérique de C (ordre croissant)
  - »                               1:          7083       Soustraction de Kaprekar donnant le résultat
Bien vu ;D

C'est exactement ça C.ret ;D j'ai en effet oublié une instruction en copiant le code et cela n'a pas échappé à ta vigilance :O
Le code fait 52 octets. Le gros intérêt vs le RPL est aussi la vitesse : entre 20 et 200 fois plus rapide sur la 50g. Ou encore la gestion de la carte SD qui n'a plus de limitation et peut etre géré presque comme un disque dur (lecture écriture de fichiers)... Plus de RAM dispo aussi. par contre il n'y a pas encore de support du graphisme mais ca va venir. C'est un projet multiplateforme, par exemple la version PC est une version native et pas une émulation et bénéféciera le moment venu d'une interface spécifique. Une version HP PRIME g1 (ancien hardware) est prévue aussi. Pour qui veut s'y essayer la logique de l'interface est très perturbante au début mais finalement pratique (mais je m'y perds encore parfois :O)
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
Répondre

Retourner vers « Tous les Pockets »