Forum

cgh

Sur HP41, on peut encore simplifier:

  01 LBL "MCC"
  02 LBL 00
  03 10
  04 -
  05 90
  06 X<>Y
  07 X>Y?
  08 RTN
  09 21
  10 +
  11 XEQ 00
  12 XEQ 00
  13 END

cgh

Gilles59 a écrit :RPL/50 (et 48 ?)
Code : Tout sélectionner
« → n 'IFTE(n>100 , n-10 , M(M(n+11)))' » 'M' STO
Testé sur HP50

Cela fonctionne sur HP48SX (enfin sous x48).

J'ai des progrès à faire en programmation RPL, moi...

cgh

Ma version sur HP48sx :

Code : Tout sélectionner

«
  « DUP 100 >
    « 10 -
    »
    « 11 + m91 EVAL
m91 EVAL
    » IFTE
  » \-> m91
  « m91 EVAL
  »
»

EDIT: Utilisation de translate = 2

cgh

Hobiecat a écrit :En regardant sur gougueul images, on voit quand même (indépendamment de la qualité des photos) des 71B franchement silver ou franchement gold...
Les numéros de série ou version ne sont pas très significatifs non plus...
Le mystère demeure !

Peut être l'usine de production: USA, Singapour ?

cgh

Gilles59 a écrit :Sympa de voir un prgm TI57 et optimisé je pense

Ben oui. Elle dormait dans un tiroir. Et puis le sujet était intéressant et pas trop "gros" en pas de programme pour la 57

cgh

Bon, en fait, j'ai juste réussi une petite optimisation. J'ai découvert que les fonctions 2nd C.t et INV 2nd C.t effaçaient le registre x. Voici le dernier programme que je propose: 00 x<>t 01 CLR 02 STO 1 03 x<>t 04 Lbl 1 05 / 06 1 07 0 08 - 09 INV Int 10 SUM 1 11 = 12 INV x=t 13 GTO 1 14 1 15 0 16...

cgh

De mémoire, sur TI-57 (la pile 9V de ma TI est déchargée. Je la recharge et je teste ce soir): 000 STO 1 001 0 002 STO 2 003 x<>t 004 LBL 1 005 1 006 0 007 INV Prd 1 008 RCL 1 009 INV Int 010 SUM 2 011 INV SUM 1 012 RCL 1 013 INV x=t 014 GTO 1 015 1 016 0 017 Prd 2 018 RCL 2 019 INV SBR Edit: Erreur...

cgh

Bonjour et Bienvenue !

cgh

En fait, ce qui est déroutant sous Linux, ce sont les différents outils selon les WM et même selon les distributions. Si on administre directement par les fichiers de conf standards (ex /etc/X11/xorg.conf), on a pas de soucis majeurs. J'ai même réussi à utiliser des cartes et/ou des moniteurs dans d...

cgh

Voilà. Pour finir une version avec "l'astuce" proposée par C.Ret pour tester une lettre. Il est vrai que sur 41C*, les caractères 0x5B..0x5F ne sont pas directement accessibles au clavier. Il nous faut juste un peu de "largeur d'esprit" pour accepter que sigma soit la minuscule de ^ . 01 LBL "A-aRV2...

cgh

Dans tous les cas, je suis très content. J'aurai appris quand à la contrainte de 7 caractères pour les variable A$..Z$ sur les SHARP 12/13/14.
Je savais qu'il y avait une contrainte sur 702P, mais je crois qu'il y avait un registre spécial pour les opérations sur les chaines.

cgh

Oui. Les 41 et 42 sont avant tout des calculatrices. La gestion des chaines de caractères, même rudimentaire, a le mérite d'exister... et d'être bien puissante -> 59 octets, pas une mémoire; seule la pile et ALPHA. Les SHARP, qui sont des ordinateurs ne font pas mieux. Comme quoi, les 41 avec leur 3...

cgh

Hobiecat a écrit :Donc pas mieux une fois que les tests sont incorporés !

Ben non ! C'est en échouant lors de l'optimisation que j'ai pensé à poster "Misez p'tit, Optimisez - N°8"...

Enfin, si on possède l'APHABOX développé par Angel Martin et un module Clonix ou NoVram ou MLDL, c'est:

Code : Tout sélectionner

AREV
LOW$

cgh

Le programme proposé par Hobiecat avec le test des majuscules: 01 LBL "INVERS" 02 ALENG 03 X=0? 04 RTN 05 1 06 - 07 ENTER^ 08 LBL 00 09 AROT 10 ATOX 11 R^ 12 STO L 13 RDN 14 64 15 X>Y? 16 GTO 01 17 CLX 18 90 19 X<=Y? 20 GTO 01 21 CLX 22 32 23 + 24 ENTER^ 25 LBL 01 26 X<> L 27 RDN 29 RCL Z 30 X<> Z 3...

cgh

En remplaçant le RCL- Z par:

Code : Tout sélectionner

X<> Z
ST- Z
X<> Z

ça fonctionne ! En 48 octets !

Par contre, je crains qu'il n'y ait pas assez de pile pour tester les 'A' et 'Z'. Je vais essayer en utilisant L.

Forum

La recherche a retourné 2053 résultats

Re: Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)

Re: Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)

Re: Misez p'tit, Optimisez - N°10 (hommage à J. McCarthy)

Re: Les versions de 71B

Re: Misez p'tit, Optimisez - N°9

Re: Misez p'tit, Optimisez - N°9

Re: Misez p'tit, Optimisez - N°9

Re: Ave popule !

Re: Win3.1, Win95,Win98,WinXP, WIn7.. la fin c'est Linux ?

Re: Misez p'tit, Optimisez - N°8

Re: Misez p'tit, Optimisez - N°8

Re: Misez p'tit, Optimisez - N°8

Re: Misez p'tit, Optimisez - N°8

Re: Misez p'tit, Optimisez - N°8

Re: Misez p'tit, Optimisez - N°8